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SECTION I 


INTRODUCTION 

This is the final report of research under Grant NSG 1128, awarded 
to the University in December 1974. The project is concerned princi- 
pally with the angle-tracking problems in Microwave Landing System (MLS) 
receivers, the goal of the research being a receiver design capable of 
optimal performance in the multipath environments found in air terminal 
areas. The scope of the work included various theoretical and evalua- 
tive studies associated with the project goal, e.g. 

i. Signal model development 

ii. Derivation of optimal receiver structures 

iii. Development and use of computer simulations for receiver 
algorithm evaluation 

and also, at least initially, the development of an experimental re- 
ceiver for flight testing. Reference is made to the progress reports 
[1-5] for details of the research. This report provides an" overview of 
the work and a summary of principal results and conclusions. 

During the 1976-77 annum a study of the DME was also undertaken 
along with the ongoing angle receiver research. The DME work included 
some preliminary theoretical analysis but mostly simulation studies of 
the various designs, i.e. fixed threshold, adaptive threshold and delay 
and compare DME receivers. The simulations showed the delay and compare 
receiver to be the most robust of the three designs simulated. The DME 
study was peripheral to the focal research on the angle receiver and is 
not discussed further in this report. Reference is made to [4, pp. 
51-100] for more detail. 
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The early study established that multipath propagation in air 
terminal areas is due principally to reflections from hangars and other 
buildings, other aircraft and the ground — all cases where the multi- 
path interference is very nearly specular in nature and either an actual 
or virtual specular point can be identified. A math model for the 
received signal in such a case contains parameters which, together with 
selected time derivatives, constitute a vector which is easily concep- 
tualized into the "state" of a state space model of the problem dy- 
namics. And the latter provides the mathematical framework necessary 
for applying recursive state estimation techniques to the optimal 
receiver design problem. This was the approach taken in the research. 
Two algorithms resulting were studied extensively: 
i. An Optimal receiver: The state vector included signal-to-noise 
ratios, angular coordinates, angular rates, the phase dif- 
ference and scalloping frequency parameters, 
ii. A Suboptimal receiver: A structure similar in some respects to 
the optimal receiver but the phase difference and scalloping 
frequency parameters were not estimated. 

Both algorithms generally outperformed in simulation a "threshold 
receiver" design which was approximately representative of the current 
Phase III Receiver. The Optimal design generally was the best, at least 
when the scalloping rate was less than half the angle function repe- 
tition rate and hence the phase difference parameter could be tracked 
successfully. The suboptimal design, at least in the simulation, suf- 
fered from extremely complex and length computations . The optimal 
‘d'Asign (and presumably the suboptimal design, would also) exhibited a 
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high sensitivity to error in the (presumed) beam width of the MLS ground 
antenna. These and other simulation results are discussed at length in 
the report, and approaches are suggested for possible improvements in 
performance . 

Some considerations relating to an experimental receiver design are 
also offered. 
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SECTION II 


SIGNAL MODEL AND ESTIMATOR DESIGNS 
The signal available to the processor is a log video signal with 
bandwidth approximately half that of the i-f channel of the receiver. 
We begin at this point with the adaptation of this signal, in part A 
below, for use by the processor. Part B presents a state space model of 
the evolving problem geometry. Part C describes the general approach 
used to optimal receiver design, and Part D develops specific designs 
studied in the research. The reader is assumed to be familiar with the 
MLS system concepts and signal formats; for this orientation, refer to 
[6], [7] and [8]. 

A. THE AMPLITUDE-SQUARED ENVELOPE SIGNAL 

The receiver log-envelope signal, a continuous -time signal within a 
scan, is sampled throughout a window on each semi-scan (centered on the 
expected centroid of the direct path pulse) at a sampling rate approxi- 
mately equal to the i-f bandwidth and then suitably exponentiated and 
squared; the resulting J samples of the amplitude- squared envelope taken 
within a given scan are then normalized to a suitable measure of 
receiver noise power and assembled into an observations, or measurement, 
vector u, which clearly is nonlinear in the problem parameters of in- 
terest and also corrupted non-additively by receiver noise. Specifi- 
cally, for the kth scan, k = 0,1,2, , and in terms of a discrete-time 


variable t local to the scan, and asstiming the presence of a direct- 

•J 

path component, a single multipath component and receiver noise, the jth 


component of u, say u , j = 1, , J is modeled as follows: 
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u. - {ap[0 - 0 A (t j .)] + a R p[8 R - 0 A (t j .)]cos fl. + n c } 2 

+ (« R p [0 R - 0 A CtJ] sin p + n g } 2 (2.1) 

J j 

where 

a = Of (k) = direct path signal-to-noise ratio (2.2) 

0 = 0(k) = angular coordinate of own A/C (2.3) 

= a R^) = mu ltipath signal-to-noise ratio (2.4) 

0 R = 0 R (k) = angular coordinate of reflector specular point (2.5) 

Pj = p(k,Tj) = direct path-to-multipath phase difference at the 
jth sample of the kth scan, propagating as follows: 

W 

p. = P(k) + U> T. + T? + — (2.6a) 

J sc j 2 j ' 

where 

P(k) = phase difference at the start of the kth scan, 


propagating similarly, i.e. 

U) 

p(k+l) = P(k) + uj sc T k T 2 + — (2.6b) 

in which 

= time interval, kth-to-(k+l)th scans. (2.7) 

U) - the scalloping rate (also derivatives may be 
s c ^ , 

present) (2.8) 

0 A (.) — the transmitting antenna scanning function (2.9) 

(see equation (2.124) below) 

p[.] = the transmitting antenna selectivity function - (2.10) 


(square root of power density at a constant radius) and 

n c , n g are independent Gaussian random variables 

j j with mean zero, variance 0.5. (2.11) 
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This model neglects second-order effects ([3], p. 9) chiefly 


a. Doppler effects not influencing the scalloping rate 

b. Differential propagation delays (e.g. ( — direct ^ , which 

tend to distort the mirror symmetry that exists between the 
TO-, FEO-scan signals. 

B. THE STATE-SPACE MODEL 

The various parameters appearing in u .. , (2.1) above, together with 

time derivatives of interest, are assembled into an N -dimensional state 

s 

vector, x, modeled as the solution of a suitable linear difference 
equation evolving in discrete-time, from scan-to-scan, and excited by a 
white, zero-mean random process, representing external influences. 
Hence, the composite generator-of-observations model is taken as a state 
space formulation with form as follows : 
x(k+l) = F(k)x(k) + G(k)z(k) 

u(k) = h(x(k) ,n(k) ) (2.12) 

where 

x(k) = state N g -vector (2.13) 

z(k) = a representation of the various external influences on the 
modeled environment, taken as an M-vector random process, 
white with mean zero and covariance matrix Q(k), 
where (2.14) 

Q(k) - <z(k)z T (k)> (2.15) 

F(k) = state 1-step transition matrix (2.16) 

G(k) = an N s x M input constraint matrix of rank M, where* ' 

M < N 

s 

u(k) = observations J-vector 
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(2.17) 

(2.18) 



n(k) = a 2J-vector of the quadrature components n , 

n of receiver noise associated- with the J samples 

S j 

of the noisy envelope (n(j) and n(k) are independent 
ifj^k). (2.19) 

h(*,*) = a nonlinear vector-valued function of its arguments, 
constructing u(k) as a J-vector of envelope samples 
u , equation (2.1). (2.20) 

C. THE ESTIMATION APPROACH 

In developing a procedure for estimating the angular coordinate 0-, 
it was clear from (2.1) that performance would be better if more of the 
state variables than just 0 were estimated. It was also clear that not 
all of the state variables influence the vector u(k) of observation's 
taken within a single scan; in the present formulation, for example, 0 
and 0^ are considered constants during the active scan, hence 0 and 0^ 
are absent from (2.1), nevertheless they are necessarily included as 
variables in the state vector to afford modeling tractably a varying 
geometry over a sequence of scans. The functional dependence of u(k) on 
only a subset of the state variables' posed a choice: 

1. Estimate only the subset of state variables associated 
with u(k) . 

2. Estimate the full state vector x(k). f . 

The first option very likely would result in severe degeneration in 
performance, during signal fades, including possibly loss of lock. The 
benefits promised by a modest filter memory, however, (represented ’ by 
rate estimates in a receiver state estimator, e.g.) prompted the second 
choice, and we began to consider the criterion under which a suitable 
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estimate of the full state x(k) could be calculated recursively, given 
the complexity of the observations. 

Ideally, given a sequence of observations u, (2.12b), say from some 
initial scan through the present (kth) scan, represented as follows: 

U(k) = {u(l) ,u(2) , , u(k)}, £2.21) 

we might adopt as a candidate criterion of performance the mean square 
error criterion and seek to calculate the conditional mean <x(k) U(k)> 
as a basis for an optimal MLS receiver design. Without loss' of general- 
ity, however, the conditional mean can be written as 

<x(k)|u(k)> = <x(k)j U(k-1)> + <E(k)Ju(k)> (2.22) 

where 

<x(k) U(k-1)> = E(k+l)<x(k-l) |u(k-l)> . (2.23) 

is the extrapolation of the prior estimate to the present, and 
<E(k)|u(k)> is the conditional mean of the error 

E(k) = x(k) - <x(k)fu(k-l)> ‘ (2.24) 

in the extrapolated estimate (2.23). Hence, via (2.22), a conditional 
mean receiver is essentially equivalent to a calculation of <E(k) U(k)>, 
a task which, generally, 

1. As the notation suggests, may involve individually each and 
every observation constituting the sequence U(k), and in 
addition, 

2. May not even be computable in a finite number of operations, 
or even easily approximated. 

A class of notable exceptions exists in which not only is <E(k) U(k)> 
computable or easily approximated, but all the historical information in 
dated observations necessary for the calculation of <E(k) I U(k)> is 
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carried in the extrapolated prior state estimate <x(k) | U(k~l)> , (2.23); 
that is <E(k)- U(k)> can he written 

<E(k) U(k)> = f(<x(k)| U(k-1)>, u(k)) , for some f(~,*). (2.25) 

Two examples are the following: 

1. The Kalman filter, applicable when h(x,n) is linear in both x 
and n, gives an exact calculation of (<E(k) ju(k)>; 

2. The Extended Kalman filter, applicable when h(x,n) represents an 
additive corruption of the observations by n, gives an approximat 
calculation of <E(k)|u(k)> when h(x,n) is nonlinear in x. 

Because of the complexity of the observation h(x,n) [recall h ^ , 
(2.1)3 and the computability requirement (for simulation and also, 
potentially, hardware), the estimation approach used in this research 
was, of necessity, an approximation. An adaptation of the preceeding 


was used, producing a state estimate (generally now suboptimal), denoted 
x(kjk) to distinguish it from the exact conditional mean, and obtained, 
as follows : 

x(k|k) = x(k|k-l) + |(k jk) (2.26) 

where 

x(kjk-l) = -F(k-l)x(k-l|k-l) (2.27) 

A 

and |(k|k) is a "suitable" estimate to be defined below, of the error 
C(k) in x(k[k-l), given x(kjk-l) and u(k), where 

|(k) - x(k) - x(k|k-l) (2.28) 

-A. 

The estimate |(k|k) will be functionally dependent only upon x(kjk-l) 

t ( , 

and u(k) . A final error definition needed and an easily .proved result 


of interest are, as follows: 
e(k) = 4(k) ~ 4(kjk) 

= x(k) - x(k| k) 


(2.29) 

(2.30) 
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i.e. , the error in the estimate £(kjk) is the residual error in the 
updated state estimate x(k k) . 

Since the observations u(k) are functionally dependent upon only a 

subset of the state variables, the calculation of £(kjk), i.e. the 

estimation of the error £(k) it- x(k|k-l), given x(kj k-1) and u(k)'f was 

accomplished in 2 stages, characterized respectively as the Scan Data 

Processor (SDP) and the Tracking Loop Filter. The SDP essentially does 

a curve-fitting of a noiseless , internal version of the observations 

with the noisy, actual ones, calculating perturbations (error estimates) 
* 

of the associated elements of x(kjk-l) to improve the fit. The Tracking 
loop, closed around the SDP in a conventional recursive structure, 
develops on estimate of the full error vector |(k), taking the assumed 
state evolution dynamics into account. A detailed discussion of these 
two stages is given below. 

The approach taken was modified, in part, by two factors, as 
follows : 

1* The presumed low-bandwidth of the state evolution model wrt 
the repetition rate, implying, quantitatively, 

x(k) ~ F(k-l)x(k-l) (2.31) 

(i.e. G(k-l)u>(k-l) in (2.12) is small). 

2. The "tracking" nature of the estimation task implying, pre- 
sumably, 

x(k) ~ x(kjk) (2.32) 

(i.e. the estimation error e(k), (2.31), is "small"). 

Equations (2.27), (2.28), (2.30) and (2.31) above imply that |(k) may be 
approximated, as follows: 
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|(k) ~ F(k-l)e(k-l) 


(2.33) 


and this, with (2.32) above implies that 

4(k) is "small", (2.34) 

a result important to the design of the SDP described next. 

Scan Data Processor 

Let y denote the parameter vector comprising the subset of N„ state 

G 

variables on which u ^ , (2.1), is functionally dependent. The general 

relation 

Y = Hx (2.35) 

then defines a masking matrix H, -N„ x N , having rank < N and con- 

G s ° G-s' 

sisting appropriately of l's and 0's. Other Ng-vector quantities of 
interest are obtained, as follows: 

Extrapolated Prior Est: y(k k-1) = Hx(kjk-l) (2.36) 

Error in y(k k-1): s(k) = H|(k) (2.37) 

By (2.34), e(k) in (2.37) is "small", and Murphy's Locally Optimum 
Estimation (LOE) theory, [9], was brought to bear on the calculation of 
an estimate which, around 8=0, should be optimal in an intuitively 
appealing sense. The LOE criterion is summarized, in the notation of 
the SDP, as follows: 

The estimate s of the error s (in 

the present estimate y of the parameter y) is locally optimum 

> * » 
r . ► 

at the point 8=0, if and only if (iff) the following two 
conditions are satisfied: •- . 

1) £ is a locally unbiased estimate of £ at the point 

of £=0, and 
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2) £ is a locally minimum mean-squared error (MMSE) 


estimate of £ at the point £=0, 

where 'locally unbiased' and 'locally MMSE' estimations are defined as 
follows : 


and 


Locally Unbiased Estimation: Defining the error 'in the 

estimate £ of the quantity s as follows : 

H(k) - t(kjk) - £(k) (2.38) 

and then defining the bias of the estimate £ of the error £ 
(in the estimate y of the parameter y) , as follows: 

b ( e) - <n(k)|y - y = £> (2.39) 


then the estimate £ of the error £ (in the estimate y of the 
parameter y) is locally unbiased at the point £=0 iff the 
following two conditions are satisfied: 

(2.40a) 


1) b(0) = 0, on Ng-vector 


2 ) 


r db(£) , 
L d£ J 


£=0 


= 0, on Nj, x Ng matrix 


(2.40b) 


^ 2 £?liy_^§E_Estimation: Defining the mean- squared error of £ 

in terms of rj , (2.38) above, as follows: 

2 (s) - <n(k)n T (k) I y - y = £>, ( ) T = transpose, (2.41) 

£ 

then the estimate £ of the error £ (in the estimate y of the 
parameter y) is locally MMSE at the point £=0 iff, for any 

/v 

estimate, 6, if £ locally unbiased at £=0, the mean-squared 

A * 

errors of £ and 6 satisfy, in the usual non-negative definite 
sense, 
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(2.42) 


1.(0) > 1 (0), N_ x N_ matrices 

5 “ £ Lr U 

£ 

The error rj(k) is induced by the noise n(k) which is white (recall 
(2.11) and (2.19)); hence, clearly, local to the point £=0, when <n> = 0 
via (2.39), it is true also that r](k) is white, i.e. 

<n(j)n T U0 > = 0, if k (2.43) 

We take note, in passing, of the important and beneficial property given 
in (2.40b), requiring that errors made in estimating the various com- 
ponents of the vector s be decoupled when £=0. In addition to making 
the estimate unique, this, is probably effective in extending the pro- 
perties in (2.40a) and (2.42) into the open region around the point s=0. 

Murphy has meticulously expounded the theory and solution of the 
locally optimum estimation problem in his scholarly work [9] and illus- 
trated his results in diverse examples in communications. The solution, 
applied to the SDP design problem at hand, involves, first, th e defini- 
tion of several additional quantities: 

1. The noiseless quadratic envelope vector q with element q ^ . 

2. The linear envelope vectors m and v (and associated elements), 
corresponding respectively to quadratic envelopes q and u. 

3. The conditional probability density function (pdf) p(vjm) 

4. The likelihood ration A(ujy) let m and m respectively be 

C j g j 

the linear envelope functions associated with a cosine and sine ortho- 
gonal decomposition of the noiseless i-f (or r-f) signal: 

m c =ap[6 - 9 A (tj)] + a R p[0 R " 0 A (lj)]cos Pj ' (2.44a) 

V = °R p[0 " e A (x J s:Ln (2.44b) 

4 J J 
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various parameters of which are as defined, following (2.1). Then, in 

the same manner that the J-vector u of observations u. was constructed, 

J ’ 

a noiseless quadratic envelope vector q is defined with elements q., 
j=l ,2, . . . , J, where 


q. = m 2 + m 2 

J C j S j 


(2.45) 


= a 2 p 2 (e) + 2aa R p j (0) Pj (e R )cosp •+ ct 2 p 2 (0 R ) (2.46) 

in which p.(0) is short-hand for p[0-0 (t.)], and similarly for p.(0 ). 

J A j j K 


The observations sample u^. , (2.1) may then be written as 

u. = (m + n ) 2 +(m + n ) 2 

3 c. c. s . s . 

J J J J 


(2.47) 


or, equivalently 


u. = q. + 2n 
J J 


c . 
J 





(2.48) 


Now, let m and v respectively represent noiseless and noisey linear 

envelope vectors with elements m. and v., respectively, for 

J J 

where 


m . 


J 



v. 

J 




+ 



] 2 


Km + n ) 2 + (m + n ) 2 ] h 
c. c. s. s . 

J J J 3 


(2.49) 

(2.50) 


Since the sampling rate within the scan equals the i-f bandwidth, the 
noise samples are all nearly independent (and zero mean, Gaussian with 
variance 0.5; recall (2.11)). Hence, referring to [10, eq. (8-115)] for 


the conditional pdf p(v. 


nn), the conditional pdf p(vjm) can be written 


p(vjm) 


J 


= n p(v m ) 

3=1 3 

J J 

-2 n v.I (2m.v,)exp(-m 
j =1 30 33 


2 

3 



(2.51) 

(2.52) 
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where I (•) is the modified Bessel function of the first kind, zeroth 
order. The likelihood ratio of interest is the following: 


A = = n =i I 0 (2m :j v j )exp(-m. 2 ) 

or, defining a new function R -»■ R , 

the even function I (♦) ([3]', p. 13): 


M q (x 2 ) = I q (x), x s R 1 
then, in terms of <p. and u^ , we may write 


(2.53) 

as follows, in relation to 

(2-54) 


J 


A(u|y) = n M (4q.u.)exp(-q ) 
j=l J J J 

(2.55) 

J 

= n A.(u. q.) 
4-1 J J J 

(2.56) 


where the conditioning variable on the left is shown as y, rather than 
T( =( l(y))> to emphasize the parameter values. 

The theory provides, further, that if one of the parameters upon 
which q is dependent is, in fact, a random variable, say in which 
there is no estimation interest, then it is to be averaged out before 
proceeding, i.e. the average likelihood ratio 


J 

A(u[y) = < n \ (u |q ,(y,£)) |u,y> (2.57) 
j = l J J 1 J 

is used in the work below. In this approach (which formed the basis of 
one variant of MLS receiver design studied.) clearly the noiseless enve- 
lope vector q has no further significance. 

The Scan Data Processor design by the LOE approach can now be 
completed. In the notation of the SDP design problem (but otherwise 
quite generally) the estimate e(k[k) of the error e(k) (in the estimate 
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y(kjk-l) of the parameter vector y) which is locally optimum at g=0 is 
given by 

s(k|k) = «l>" 1 (v)A(u|v) (2.58) 

where, recognizing u(k) = u(y(k) ,n(k)) , 

<Ky) - <A(u(y,n) jy)A T (u(y,n) jy) | Y = Y> (2.59) 

denoted as the LOE (Fisher) Information Matrix, and 

In \(u|y) Muly) t 0 (2.60) 

A(u |y) 1 1 

V^O, otherwise 

Further, the mean-squared error, I, (2.4l), of this estimate local to 
the point s~0 is 

I(o) = cj)"" 1 (y) (2.61) 

As indicated above, several variants to the basic MLS receiver 
design using this approach were studied, differing initially in their 
definitions of the state and/or parameter vectors, x and y respectively. 
Detailed development of the LOE quantities defined above is deferred 
until the next section of this chapter where the various designs 
specific to particular state and/or parameter vector formulations will 
be described. We conclude this discussion of the Scan Data Processor by 
noting that, in view of (2.58) and (2.61) above, the principle calcula- 
tions done by the SDP are those of <Ky) and A(u|y). These, in fact, are 
the quantities passed to the Tracking Loop Filter, discussed next. 

Tracking Loop Filter 

Inputs to the Tracking Loop Filter from the Scan Data Processor are 
the quantities A(u | y(k Jk-1) ) and <Ky(k j k-1) ) . If we form the estimate 
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s(k|k), as prescribed in (2.58), that is: 

£(-k|k) = R(T)A(u-|y) (2.62) 

where y = YCk: | k-l) (2.63) 

and R(y) - 4> _1 (y(k |k-l) ) ' (2.64) 

and then tentatively form a "pre-estimate", y(kjk), in the following 
manner: 

y(kjk) = y(k|k-l) + s(k|k), (2.65) 

A 

we find that y can be written 

Y = y(k|k-l) + s(k) + e(k[k) - s(k) (2.66) 

= y(k) + n(k) (2.67) 

= Hx(k) + r](k) (2.68) 


i.e. 'the pre-estimate y(kjk), in a neighborhood of e=0, is in fact, a 
"pseudo-observation" which is both linear in x and corrupted additively by the 
zero mean, white noise r](k) with covariance R(y(kjk-1)), (2.63). 

Following conventional Kalman filter theory and forming the innova- 

A 

tions process, y(kjk-l) - y(k|k), gives 

y(kjk-l) - y(k|k) = e(k|k) (2.69) 

i.e. the innovations process is the estimate s(kjk), (2.62), produced 
(effectively) by the LOE-theory-based Scan Data Processor. The filter 
state update equation has the form 

x(k|k) = x(k|k-l) + K(k)e(kjk) (2.70) 

where K(k), the Kalman gain, is calculated by cycling through 3 equa- 
tions for each value ofk, k=l, 2 ,..., usually as follows: 

Extrapolated Error Covariance: 

P(k| k-l) = F(k-l)P(k-l|k-l)F T (k-l) + G(k-l)Q(k-l)G T (k-l) (2.71) 
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Kalman Gain: 


K(k) = P(k|k-l)H T [HP(k|k-l)H T + R(y)]" 1 (2.72) 

Updated Error Covariance: 

P(k|k) = (I-K(k)H)P(k|k-l)(I-K(k)H) T + K(k)Ry)K T (k) (2.73) 

In the present application some simplification is possible, however 
Comparing (2.26) and (2.70) above indicates that 

|(k|k) = K(k)s(k[k) (2.74) 

= K(k)R(y)A(u jy) (2.75) 

and substituting from (2.72) into the latter gives 

|(k|k) = P(k|k-l)H T [HP(k|k-l)H T + RCy) ] -1 RCy)A(u |y) (2.76) 

or, after simplifying, 

4(k|k) = T(k)A(u |y) . (2.77) 

where 

f(k) = P(k jk“l)H T [I + <5>(y)HP(k|k-l)H T r 1 (2.78) 


is a new N g x gain matrix not requiring the inversion of the matrix 
<Hy) (produced by the SDP) for its calculation (by (2.64), R -1 (y) 
appearing in the simplification, was replaced by <J>(y)). The refined 
state-estimate update equation, corresponding to (2.70) is the follow- 
ing: 

x(kjk) = x(k| k-1) + T (k)A(u |y) (2.79) 

Comparing (2.75) and (2.77) indicates that 

K(k)R(y) = T(k) (2.80) 

or that 

K(k) = r(k)R -1 (y) = T (k)<f>(y) (2.81) 

Substituting this into (2.73) and simplifying gives the following: 
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Updated Error Covariance: 

P(k[k) = (I-r (k)$(y)H)P(kjk-l) (I-r(k)<J>(^)H) T + r(k)<Hy)r T (k) (2.82) 

which also does not require the inversion of $(y). 

In summary, the MLS receiver design developed, a tracking receiver, 
will operate as a recursive state estimator and begin the (kth) data 
processing cycle by extrapolating the prior state estimate x(k-l| k-1) to 
the present, producing the 

Extrapolated State Estimate , x(kjk-l), (2.27) 
and then masking it, giving the 

Extrapolated Parameter Estimate , y(kjk-l), (2.36) 
this, an estimate of parameter vector y(k) with error e(k). Next, given 
y(k| k-1) and the vector u(k) of observations, the Scan Data Processor, 
designed under a criterion of producing an estimate s(k[k) of error s(k) 
that is locally optimum at' e=0, stops short of this result and instead 
calculates the following: 

Log Likelihood Ratio , A(ufy), (2.60) 

LOE Information Matrix , <Hy) , (2.59) 

The Tracking Loop Filter accepts A and $ from the SDP and completes the 
data processing cycle with following sequence of calculations. 
Extrapolated Error Covariance , P(k|k-1), (2.71) 

Filter Gain , T(k), (2.78) 

Updated State Estimate , x(k|k), (2.79) 

Updated Error Covariance , P(kjk), (2.82). 

This concludes the derivation at the general level. The results are 
specialized to particular state- and parameter-vector formulations next. 
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D. SPECIFIC DESIGNS 


Throughout the research program three specializations of the above 
general design structure received most of the attention. These are 
characterized by the formulations of their parameter and state estimate 
vectors, as follows: 


i. "Non-adaptive" Design 


N G = 2, 

Y = (o, 8) 

(2.83) 

*s = 3 > 

- T 
x = (S, e, e ) 1 

(2.84) 

ii. "Optimal" Design (Adaptive) 


N =5 
G 

Y - ($, 9, a R , S R , P) T 

(2.85) 

N = 8, 
s ’ 

AAA A A A 

x = (a, 6, 6, a R , 8 r , 0 r , p, 

uj sc ) T (2.86) 

iii. "Suboptimal" 

Design (Adaptive) 


N = 4 
G ’ 

Y = («. 8, a R , 6 r ,) T 

(2.87) 

'T) 

It 

a 

A A A A m 

x= (a, 0,8, 3, 8, 6) 

(2.88) 

The non-adaptive design was identified and studied as 

a baseline design 


in accessing the benefits of adaptivity as supplied by the other de- 
signs. The optimal design was the principal focus of the study; the 
definitions (2.85) and (2.86), and the resulting design, are predicated 
on the assumption that the multipath interference phenomenon, when 
present (in q, (2.46), e.g.), is one which is fully described by samples 
taken at the angle function repetition rate, or more concisely, via the 
sampling theorem, 

W sc Rate ) = f (2.89) 

where T is the interval between scans. Under this assumption then, p on 
the active scan is nearly constant, i.e. in q, (2.46), 
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Pj ~ P(k), for all j = 1, 2, , J (2.90) 

(where P(k) i-s the phase difference at the start of the kth scan) and 

hence ui does not appear in the y-formulation for this design. The 
s c 

relation (2.89) is a restriction that would not always be met in prac- 
tice, of course, and the suboptimal design represented an effort to 
formally relax this condition and simultaneously reduce the dimensions 
of the vectors and hence the complexity of the algorithm. This design 
was accomplished by 

i. Assuming the f3^. in q (2.46) were all independent random vari- 
ables, uniformly distributed on the interval (-7t,7l) (corres- 
ponding to the assumption that u)^ •* ») ; then 
ii. Following (2.57) and taking the average of the likelihood 
ratio over all the (3^ and then using it in the subsequent 
design. 

Both the state and parameter vectors are devoid of both {3 and iu gc in 
this third design. 

A fourth and very recently conceived design, motivated also by the 
desire to relax the restriction (2.89), though more complex than the 
"Optimal" design, is characterized as follows: 

"6D LOE" Design (adaptive) 

y - («> 0, 0 S , P, £> sc ) t (2.9i) 

x = (a, e, e, a R , e R , e R , p, w sc ) T (2.92) 

A A A A A A A T 

x = (6, 6, 0, 0f R , 0 R , 0 R , p, uj sc , ui sc ) (2.93) 

The assumption here is that there is sufficient information in the J 


and 




N = 8, 
s 


or 


N = 9, 
s 
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samples taken within a single scan (J/2 on each semi-scan, centered on 

the expected centroid of the direct path pulse) to produce an estimate 

of U) using just one scan's data; it appears also the fractional ac- 

curacy of such an estimate would improve with increasing u) , though it 

S 0 

may be somewhat 9-dependent, since the interval between the TO-scan and 
ERO-scan pulses' is both 6-dependent and relevant to the ui^-estimate 
produced (or, more specifically-, the LOE estimate of the error in 
m sc (kjk-l). The "6D LOE" design will be described in Appendix C with 
any results obtained at the time of grant closure. 

Here we focus on the earlier designs, in particular, the details 
for the optimal and suboptimal designs. The non-adaptive design is 
clearly imbedded, in a sense, in both of these designs and needn't be 
treated separately. 

Optimal Design 

For this case, referencing (2.56), A(u | y) can be written as 
follows : 


A(u 


v) = n A (u 

j=l J • 


V 


(2.94) 


where 


A. (u . 
J J 


q.) = M (4q.u.)exp(-q.) 

J o J J J 

> 0, for all u. and finite q. 

J. J 


and 


(2.95) 

(2.96) 


- A 

= q j (Y) 

= a 2 p 2 . 


(0) + 2aS R Pj(0)p^.(0 R )cosP + 6 2 p?(0 R ) 


(2.97) 

(2.98> 
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Hence, via (2.60) 

A( u |v) =§iS\(u|v) = 

where 


A.(u.jq.) - In A..(u. 
J JKJ 9Y 3 3 


V 


3A. 

8V 1 

YvV 


or 


A(u|y) = D(y)w(u|q(y)) 


3A. 

S5j c “jV 

(-J-) c— 2 

Y‘jlv 


in which 


DCV) 6 | - 



’ ^ \ 

3Yl 

9 *i 

3q x 

3qjCy) 

9 *N 

x n 

/ 


, Ng x J 


/ A A A A 

2 op 2 (e) + 2a R p j .(e)p j .(8 R )cosp \ 

— 2S 2 p (0)p (0) + 2aoLp (0)p (0 )cosp — 

J J K J J -K 


) — 


2&Pj (0)pj (0 R )cosp + 2a R p?(6 R 

A A A ^ 

--- 2Sfi R p j (e)p^(e R )cosp + 2S 2 p^. (0 R ) Pj . (e R ) — 


v-< 


2 «s R p j .(e)p j .(e R ) sin p) 


where 


PjC8) ^ptej 

G 


6 =0-0. (T.) 
e A v 2 


(and similarly for PjC0 R )) 


(2.99) 

(2.100) 
(2.101) 

( 2 . 102 ) 

(2.103) 
, (2.104) 
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and 


w(u|y) = (— - , w.(u. |y), — ) T , 

where 


J-vector 


(2.105) 


8 K. 

( u - 

, h i i 'j J 

V u j 7) 


V 


A.(u. q.) 

J 31 J 

= 4u — (4q.(y)u ) “ 1 
J J J 


in which 
M 


1 aV' } 

— (0 =— — 

M M (*) 

o o 

and, for any real z>0, 


(2.106) 

(2.107 

(2.108) 


M l( z )~^M o (z) (2.109) 

where M q (*) was as defined in (2.54) in relation to I (•)» as follows 
for any real x: 

M q (x 2 ) = I q (x) (2.110) 

A corresponding relation for M^( ) is as follows: 

M 1 (x 2 ) = I 1 (x) (2.111) 

where I^(» ) is the modified Bessel function of the first kind, first 
order. The well-known soft—limiter characteristic of 


Y~ (*) (initial slope of saturation value of 1) 
° 

corresponds to the following for — (x) , x > 0: 

M 

o • • 



M 


o 


(x) 


x=0 


% 


( 2 . 112 ) 
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d M. 

(x) 

dx M 


x=0 


M 

M 


1 (x) 


x large 


1 _ 
“ 32 

1 

2 x 


(2.113) 

(2.114) 


These conditions are satisfied exactly by the approximation ([3], pp. 
15-17) 

M, 

i r ^ ~ 1 

2 (4+x)^ 


1 , , ~ 1 
~ 

o 


(2.115) 


whose error peaks at only 4% around x=30. Substituting this in (2.107) 
above for w^. (u^ y) gives the expression 


w . (u . y) 
3 3 * 


u. 


- 1 


(1 + (y)u^) 


( 2 . 116 ) 


which was used in this design. 

Substituting (2.101) above in the defining equation (2.59) for the 


LOE Information Matrix $ gives 

<Ky) = <A(u(y,n)|y)A T (u(y,n)[y) 


A. 

y> 


= D(y)H w (q(y))D 1 (y) 


where 


H w (q(y)) = <w(u(y,n) |y)w T (u(y,n) |y)fy = y)> 


(2.117) 

(2.118) 

(2.119) 


/ 

The criterion for locally optimum estimation (more specifically, locally 
unbiased estimation) at e=0 assures that 

0 = <A(u(y,n) |y) |y = y> = D(y)<w(u(y,n)| y) |y = y> (2.120) 

A simulation study ([4], p.15) of the process w(u j y) , using the 
approximation (2.116) gave support for (2.120) as well as strong evi- 
dence that w(u|q) is white, i.e. 
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<w. (u. (y,n. ) 
1 i x ' 


V)„.(u.( V> n.) 


V) V=Y> = 


0, for i#j 


\ (V)» for i=j (2.121) 

j 


and on this basis H w (q) , (2.119), which is the covariance of w(u| q) 
local to y-y=0, was taken, as diagonal, i.e. 

(2.122) 


H w (q) = Diag(..., h w (v), ...), J x J 

j 


where h (y), it was also found ([4], Appendix A), could be approximated, 


w 

as follows: 
j 


h » «) - 1 , 
j 1+2 q, (y) 


(2.123) 


with an error that peaked at about 20% for q.=2. 

The antenna scanning function, 8^(1), used was the following 


W e 




0 . + fix . 

A i 

max J 

0 , 


, 0<t.<T 

~ J s 

> T s- T j <T I' 

a - n( W> T ri x j <T i 


A . 
mm 

0 

^ “mm 


(2.124) 


where the parameters are defined, as follows: (see Figure 2.1) 


6 . - 6 
A A 

q 4 . max 


A . 

mm 


(2.125) 


A 

T = T + T p - 2 
F s R Q 


(2.126) 


T = duration of the TO-scan 
s 

T^ - interval between zero intercepts 

T = T + T 
1 s X F 


(2.127) 

(2.128) 
(2.129) 


Values for the parameters 0 Amax , 9^^, T s and T R are essentially 
prescribed by the MLS specifications and will be given in the simulation 
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discussion. The antenna selectivity function, p( ), and its derivative 
p( ), are not prescribed in the specifications; plausible functions 
were chosen for simulation use, however, and these will be described 
later, also. This completes the description of the scan data processor 
for the optimal design. 

The y and x vector formulations in (2.85) and (2.86) require 
matrices F and H in the tracking loop, as follows: 


F = 


H = 



0 0 0 

1 T 0 

0 10 

0 0 1 

0 0 0 

0 0 0 

0 0 0 

0 0 0 


0 0 0 0 \ 

0 0 0 0 

0 0 0 0 

0 0 0 0 

1 T 0 0 

0 10 0 
0 0 1 T j 

0 0 0 1 / 


/ 1 0 0 0 

0 10 0 
0 0 0 1 

0 0 0 0 

\ 0 0 0 0 


0 0 0 0 \ 

0 0 0 0 \ 

0 0 0 0 

10 0 0 
0 0 10 / 


(2.130) 


(2.131) 


X 

The product matrix GQG used was a diagonal one in which the diagonal 
elements represented generally measures (variances) of the intuitive 
uncertainty in the elements of x(k), given those of x(k-l). The follow- 
ing values were selected as part of the tracking loop design: 


GQGj X = GQG^ 4 = Max {(h) 2 , (|q) 2 } (2.132) 

representing 10% uncertainty for S/N > 14 db (in the direct path signal 
strength only; the assignment of the same value to the *44' component 
was arbitrary) ; 

GQG^ = GQG^ 5 = GQG^ ? = 0 (2.133) 
representing full reliance in these coordinates on integrations of 
derivatives ; 
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GQG 33 “ GQG 66 “ 


max 


2 T 


= . 01T 


AZ 


(2.134) 


where 


G max = 0.1 deg/sec 2 in Azimuth, was determined from a study of a 


representative set of landing patterns ([3], pp. 40f f ) ; 


GQGgg = (f £) 2 = °*° 4 


04 f . . sTX. s2\ 

(«Gf r) 


(2.135) 


representing an error Af3 in phase (due to iu uncertainty (i.e. error)) 

s c 

of 0.2 radians between scans, well within the limit of n radians asso- 
ciated with the sampling theorem. 

Finally, in recognition of the limitations on. the true values of 
the states, imposed by system geometry, modeling ambiguities, etc., the 
results obtained from the estimation algorithm described thus far were 
subjected to various additional constraint operations before being 
designated and subsequently evaluated as "the estimates". Each of these 
constraints are described pictorially in Figure 2.2 in the conventional 
format of an input — output graph of a function of one variable. In all 
cases the abscissa (input) is the result of the estimation update, 
(2.79) above, and the ordinate is the estimate to be output (or used in 
the next estimation cycle) . 

Suboptimal Design 

For this case, the |3 . , j=l,2, , J, are taken as independent 

random variables, each uniformly distributed on [~7t,7t]. Conceptually, 

q. is also random and can be written 
J 

h = 9 a + % cosP i = (2.136) 

a j j J J J 

where 

V “ S2 P^( 0 ) + P?(6 r ) = 9 a (Y), > 0 (2.137) 

■i J J 
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(2.138) 


cL = 2a6Lp (0)p.(0 R ) = q R (y) , ‘indefinite 

j J j 


and 


" q A. ^ q B. i «A. 

J J J 

We seek A(u|y), which, applying (2.57), is given by 


A(u|y) = < n A.j (Uj qj(y,pj))|n,y> 


(2.139) 


(2.140) 


in which the averaging is done wrt the 0 ^ , j=l,2, , J. Because the 

0^ are independent this can be written in a form similar to (2.94) as 
follows : 


A(uly) = n A (u 

i j=l J J 


A A \ 


where 


A. (u. 
J J 


q. , q. ) = <A.(u. 
J 3 J J 


> 0 (by virtue of (2 . 95) , (2 . 96) ) 


And, as in (2.99), 

A tu|« = I =1 V „. |?) 

where, here, 

V“jp Y“j 


A A \ 

q A. ,q B . 


= W A ] (U il q A.i- <1 B.i ) 


A. (u. 
J J 


|,V> V 5 

J J 


(2.141) 

(2.142) 

(2.143) 

(2.144) 

(2.145) 

(2.146) 


dq A. hr x(u j|S'V 

^ A(u |q >% ) ^ + *■ dy ^ A(u q A ,q ) 

1 J J J j j 


q A.’ q B.^ 
J J 


(2.147) 
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(2.148) 


Consequently, A(u|y) in (2.144) above, may be written 
A(u|y) = D A (y)w A (u|y) + D B (y)w B (u|y) 


where 


d a (v) = 


D B (Y) $ 


I — J — 

9*1 


U 


/ 


9 q A _(Y) 


, N G x J 


- 


n 


N, 


2op?(0) 


2S 2 Pj (0)^ (6) — 

2i v!<V — 


\ 


\ — 


^Vj'VVV —I 
- \ 


9q B (y) 
j 

—zf 7 ~ 


9q B (y) 

.i 

9* 


, N G x J 


N, 


/ 


2 Vj ( V V e:i — 


— ■ 2SS k p, (0)p. ( e R ) — 


— 2apj(8)pj(e R ) — 


— 2Sa RPj (0)p.(0 R ) — 


w A ( u | Y) - (— » A (u. *) — “) T , J-vector 


(2.149) 


(2.150) 


(2.151) 


(2.152) 


(2.153) 
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j(ujv) -(— w fi (u jv)— J-vector 


(2.154) 


in which 


§57 VM'V’V 5 

A. J J l j j 


• W (u y) = J 

J h 5 (.n V’V 3 

J J a j 


^-A.Cn. q.«,p.))|u j ^) 


<A.(u. q.(y,p.)) u.y> 
J J J J J 


3q. 9A. 

<C at )( 5^ ^IVM* 

A ,- J 


<A . (u . q. ) u . , y> 
J J J J 


(u. q.) u.y> 

Sqj J V J 3 

<X. (u. |q.) u. ,y> 

j j V j 


and, similarly 


fs ] 


w_ (u. y) = , , ~ =* y 

B.j A. (u. q . ,q_ ) 

J J J J A j B j 


8q. B\. 

<(— 1 L )(— 1 1 (u 5 ) u ■})> 
3q 3q 1 3 3 

j 

<A..(u. q.) u.,y> 

J J V j ’ 3 


<cosp — J- (u q ) u ,y) 
J J J J 


<A..(u. q.) u.,y> 
J J J l ’ 3 
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Making use of (2.106) in (2.158) and (2.161) [and noting that y in 
(2.106) included the phase difference parameter ] gives 


W. (u. 
A. J 
3 


V Cu j 

J J 


y) = 


<w . (u . 
3 J 


M! 


u y> 
J y 


<X . (u . q . ) u . , y> 

J J V 3 ’* 


= <w . (u . 
J 3 

y,£.W(u. 


A. 

V v> 

y) = <w . (u . | 

J J 1 

y,0j)cosp^w(u. y,pp 


( 2 . 162 ) 

(2.163) 

(2.164) 


where 


W(u .. 
J 


a A.(u. q.) 

t.P.) = J - J - ■ 

3 <A i(u.| q.) 


> 0 


v 7> 


(2.165) 


3 J | J 

is a weighting factor which essentially modifies the (uniform) a priori 


distribution of (3., giving an a posteriori one conditioned on u. and y, 
J J 


1* e . 


P( Pj 

(Clearly 


Uj,y) = W(Uj y,pj)p(^) 


J_\ p(P i 

•S J 


u j >y)hpj = <w(u j . 




A. H 

= 1, 


(2.166) 


(2.167) 


independent of u., y, as expected.) A more explicit form for w. results 
J A. 

from the substitution of (2.95) for X. and (2.107) for w. into (2.162); 

J 1 


writing the expectations in integral form and taking advantage of the 
even symmetry wrt 0.(i.e. as cos 0. in q.) gives: 





v) = 


7t M 

J [4uj— (4qjUj)-l] M Q (4q j u j )exp(-q j )d0 j 

0 Mo 


U j ^ ex P C' ) d Pj 


.(2.168) 


or, in terms of the more familiar modified Bessel functions of the first 
kind, Ig, and I , 
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"2 

-L-, 
1 


W A (u i 
J J 


?) = 


X [(jp) — (2 (q U.) 2 )- 1] I q (2 (q uJ^expC-qJdp 

n a i* ^ t ^ J J 


(2 (q.u.)^)exp(-q. )d{3. 
o J ^ K J 


Substituting the approximations (for any real z) 

Ii r \ ~ Z 

_1 (z) ~ — 

I (4 + z 2 ) 2 


(good to about 4% 


-(2.169) 


(2.170) 


I (z) 


exp[ (4 + z 2 ) 




1+z 


] 


»% 


u (1 +2nz) 

and the following expansion for q^ 

q. = q. (1 + B.cosB.) 

J 4 Aj J V 

where 


(good to about 7%) 


(2.171) 


(2.172) 


B. 4 


*B. 


d A . 


(2.173) 


(and, by virtue of (2.139) 


-1 < B. < + 1) 
“ J - 


gives 


„ - 

A j 


(2.174) 


(2.175) 


w. 


J^cosp.i.ap. 

B 0 f L. dp. 

J J O J 


where 


(2.176) 


A u. 

u) - j 

^ (! + 0 A u j ^ + B j C0S Pj))^ 


- 1 


(2.177) 
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and 


A 

L = 


exp[2((l+q u (1+B.cosp.)) 

J 3 J J 


1 + 2(q A u )" 2 (l+B cos0 )' 2 
j J- J J 


p) ~ % (1+B.cosp.)] 

2 " J J 


1 , X. 
2 \ ^ 


(1 + 4n(5 A uj) 2 (1 + BjCosp j ) 2 ) 


(2.178) . 

These last models, (2.175) and (2.176), were the basis of the calcula- 
tions below. 

Substituting (2.148) for A(ujy) into (2.59) for 4>(y) gives 


«■(?) = D A (y)H w (y)D^(y) + D A (y)H w (y)D^(y) 

A AB 

+ (d a ( ^ )H w ^)Dg(y)) T + D B (y)H w (y)D^(y) 

AS B 

where, noting that now 

u = u(y,p u ,n), 

the J x J matrices H , H , and H are given by the following: 

W A W B ' W AB 

H w (y) - <w A (u(y,p u ,n) |y)w A (u(y,p u ,n) |y) |y=y> 

A 


H w (y) = <w B (u(y,p u ,n) y)Wg(u(y,0 u ,n) 
B 


H w (y) = <w A (u(y,P u ,n) y)w^(u(y,p u ,n) | y) 
AB 


y ) h=P 
y-P 


(2.179) 

(2.180) 

(2.181) 

(2.182) 

(2.183) 


in which these averages are taken wrt to the noise n and phase dif- 
ference {L in u. Assurances given by the LOE theory that 

0 = <A(u(y,p u ,n) |y) y=y)> (2.184) 

= D A (y)<w A (u(y,p u ,n) y) y=y) + D B (y)<w B (u(y,p u ,n) |y) |y=y> (2.185) 
strongly suggest that 


<w A (u(y,P u ,n) y) 


y=y> = 0 


<w B (u(y,p u ,n) y) y=y> = 0 


(2.186) 

(2.187) 
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and a simulation study of the processes w^(ujy) and Wg(u|y), using 
numerical approximations of (2.175) and (2.176) (discussed below) re- 
spectively, gave support for (2.186) and (2.187), as well as strong 
evidence that 


<w a. (u i Cy> p u . ,n i ) I ^ )w a . (u j Cy ’ p u . ’ n j ) | v) | y=y> = . 


CK.P n ) 

X X 


y)w B (u (y,0 ,n .) 
j J j J ' 




A. 

Y=Y> = 


i + j 

h w (V) > i=3 
W A. 

J 

0 i t j 


h w (Y) , i-J 
W B. 

J , 


(2.188) 


(2.189) 


<w. (u.(y,p ,n.) 

A. x 4 ’ r u. x 
x x 


Y)w B (u (y,p ,n ) 
J 3 J 


Y) 


Y=Y> = 


0 i t j 


h (y) , x=j 
AB. 

J 


(2.190) 


and, on the basis of these conclusions, the matrices H (y) and H (y) 

W A W B 

which are the covariances of processes w^(ujy) and w^(u|y) local to 
Y“Y = 0> and the matrix H (y) , the cross-variance of the processes w. and 


W AB 

Wg local to y-y=0, were taken as diagonal, i.e. 

H (y) = Diag(— , h (y) , — -), J x J 
A w Aj 

H (y) = Diag( , h (y) , — ), J x J 

B • . w Bj 

H (y) = Diag( , h (y) , — ) , J x J 

AB W AB . 


(2.191) 

(2.192) 

(2.193) 


where definitions for h (y) , h (y) and h (y) were taken from 

W A. W B. W AB. 

J J J 

equations (2.188), (2.189) and (2.190), respectively, above. 

Efforts to use (2.175), (2.176), (2.188), (2.189) and (2.190) and 
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obtain approximations, respectively, for w. , w R , h , h and h , 

J j k. 2^ ABj 

analogous to those in (2.116) and (2.123) for w. and h , respectively, in 

j w. 

the optimal design, were not successful. As indicated above, .it was 

necessary to use numerical procedures to perform the averaging indicated in 

the calculations of w & (u [y), w B (u.jy) and <Ky)). Numerical versions of 

J J j J 

(2.175) and (2.176) were used to calculate w^ (ujy). and w^ (ujy) in which 

j j 

integrations wrt (3 were replaced by simulation averages -- i.e. by 
summations over on index set of LMAX values of p taken uniformly 
over the interval [0,7t], with due regard- for the dynamic range of the 
computing machine. The forms used are, as follows, suppressing the "j" 
subscript temporarily: 


max(l, hi) f 


w A = C 


max (1, h.J 
£■ 


) c— ) 


(2.194) 


W B = ( 


max (1, h, ) 
_£ \ 

max (1, h.) 

£ z 


) c-S) 


(2.195) 


_ J- __ 

£ (1 + 4n (q A u) % (1 + Bcosp^V^ 


h = (-1 + 


(1 + q. u(l + BcosP fl )) 


h £ 


(2.196) 


(2.197) 


h = h cosp 
b £ £ £ 


(2.198) 


LMAX 

I 

£ 


V x P ( g£ “ y- 


(2.199) 


LMAX 


f s = 2 h a ex P ( S£ " 8 m } 
S A £ a £ £ m a 


( 2 . 200 ) 
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LMAX 


f s„ = ? h b„“ s,C *J! ' V 5 


B £ 


( 2 . 201 ) 


g = In (LMAX) + In (max(l,h ) + max(g ) - EXPMAX 
m £ * £ * 


( 2 . 202 ) 


g = In (LMAX) + In (max(l, h ) + max (g ) - EXPMAX 


(2.203) 


g - ln(LMAX) + In (max(l, h, ) + max (g 0 ) - 
in, « I d « i - 


EXPMAX 


(2.204) 


EXPMAX = In (largest REAL variable representable on the 

computer) (2.205) 


(~ 88. on the PDP-11, 322. on the CDC Cyber 172) 


(2.206) 


These equations were the basis for the simulation study that led to the 

conclusions of whiteness, equations (2.186) thru (2.190), and the consequent 

diagonality of H , H , and H , (2.191) thru (2.193). These same 
W A W B W AB 

equations were used in a numerical study of w. and w.^ as functions u., 

j j J 

q. and B . in an effort to find approximating functions , 

j 3 

v tu jK.’V' v (u j V’V 

J 1 J J J 

"after the fact", again without success. As a result 

i . The numerical computation of w^ , w^ , given u . , q^ , and . 

j j J j 

B j , equations (2.194) thru (2.204) had to be programmed 
as part of the receiver design, to run "on-line" (with 
a substantial increment in processing time). More will 
be said about this in the simulation discussion in the 
next chapter. 

ii. Also, the second-order averages, h , h and h , associated 

W A. W B. W AB. 

J J J 

with the calculation of could not be adequately approximated 
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in closed-form, and numerical .averages based on (2.188)' thru 
(2.190) had to be done. 

These latter calculations will be summarized at this point in the dis- 
cussion since they were done "off-line" and hence were not part of the 
receiver simulation per se, but more a part of the design. 

As (2.188) thru (2.190) suggests, the second-order averages had to be 
taken wrt the -variable and the noise n. in the observation sample, 

j 3 

u. , appearing as an argument of the conditional mean processes w. , 

J A . 

j 


w^ — clearly a very lengthy proce’ss but one fortunately that could 

j 

be done off-line. Such an approach was used, but the effort then to 
find approximating functions "after the fact" was again not successful, 
and a plan was pursued involving calculating and storing many values of 
the second-order averages in tables off-line, then using table-lookup 
procedures indexed by q^ and B. and interpolation on-line to calculate $(y) . 

j J 


To improve the accuracy of these results and more nearly quarantee the 
non- negativeness of the calculated d>(y ) , the ^-matrix was determined 
element-wise, as follows: 


(J) 

£i 


= 2 [s D. - s D„ ) (s D. - s D_ ) 

14 j=i “A. A y »B. B ij V A <y. V V 
+ (1 + r ab.>V V + V d b.. )! 

J A j B j. 13 


(2.207) 


where 



A 

(h A 

s 

V 


W A. 

W A. 

J 


J 

J 


A 

(h )\ 

. s 

V 


W B. 

W B. 

J 


J 

J 


(2.208) 

(2.209) 
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(- 2 .- 210 ) 


h 

A, ,W AB. 


1 s s 
W A . W B . 


” 1 — B AB.— + 1 
1 


3 3 


The averaging associated with these calculations also was done by simu- 
lation rather than by using numerical integration of the associated 
probability integrals. In particular, suppressing the above "j" sub- 
script temporarily and considering (2.136) and (2.172) then clearly u^^ 
in (2.48) can be written without confusion as 


u = <l(q A >B,P u ) + 2n c [a(q A ,B,P u >]' s + n* + n^ 


= u(p u ,n q A ,B) 


( 2 . 211 ) 

( 2 . 212 ) 


where, of course q. = q.(y) and B=B(y). Then w. can be denoted as 

n n n/ . \ 

u) 


w A (u q A’ B ^ = W A (u( ^u’ n V B ^ q A ,B ^ 


(2.213) 


and with this notation the calculation of s is described, as follows 

j " A 

L n 

max max - ~ , 

S w = J 1=1 1=1 W l (u(P u ’ n i| q A’ B) | q A’ B)] ^ (2 * 214) 

A max n £ 

max 


- S „« a ,B) 
A 


(2.215) 


and similarly f or - s , etc. where the components n , n of the J noise 

W B i - i max 

vectors n^ were drawn from a Gaussian pseudorandom noise generator (with 

mean zero, variance 0.5, see (2.11)) and the L values of p were 

nidx 

taken uniformly from the interval [0,7t]. Values for L and J 
3 * max n 

max 

used were 


L =11 

max 

J = 400 


(2.216) 

(2.217) 
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for each (q^ , B.) point. In building the tables 300 (q, , B.) points 

j J J J 

were employed distributed generally, as, follows 

0-1 < q A < 10 s (25 values) (2.218) 

j 

0.01 < B. < 0.990 (12 values) (2.219) 

and values for ln(s ), In (s -) and R Ar> were calculated and stored. 

W A. W B. 

J J 

These off-line calculations were done by PROGRAM WL0GSW, associated 
subroutines WAVGS and WAV/B , and FUNCTION GAUSS, which are all included 

in Appendix A. Values calculated for ln(s ), ln(s ), and R. r are 

W A. W B. j 

J J 

are given in Tables 2.1, 2.2 and 2.3 respectively. 

A 

Then, in the receiver, for each (q. ,B.) point associated with 

A . 1 

j 

the estimate y(k k-1), the tables were entered and 

A A 

i. Values , q^ , B^, B^ + ^ from the tables were found, 
i j+1 

such that 


%. i «A. < ’A.,., 

1 3 X+l 


( 2 . 220 ) 


B. < B. < B 
i “ J i+l 


( 2 . 221 ) 


ii. Then, linear interpolation between calculated averages in the 
table was done, using the general formula 


f(x ,y ) - f(x ,y ) 

f (x 1 +Ax,y 1 +Ay) = f(x 1 ,y 1 ) + -Ax 


X 2 " X 1 

f(x 1 »y 2 ) “ f Cx 1 ,y 1 ) 

+ Ay 

y 2 “ y l 

f(x 1 ,y 1 ) + f(x 2 ,y 2 ) - f(x is y 2 ) - f(x 2 ,y 1 ) 

+ AxAy 

( 2 . 222 ) 


(x 2 - X;L )(y 2 - y x ) 


iii. The interpolated values of In (s ), ln(s ) were exponentiated), 

W A. W B. 

J J 
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Table 2.1 Ln (s (q, , tf..)) 


a; 

1 


X 

. olO 

• u 20 

.060 

.060 

.100 

.1000 

-.11 

-.11 

-.11 

. -.‘11 

-.11 

.1770 

-.16 

-.lo 

-.16 

-.16 

-.16 

.3162 

-.23 

-.23 

-.23 

-.23 

-.23 

• 5 o 23 

-.33 

-.33 

-.33 

-.33 

-.33 

1.000 

-.67 

-.67 

-.67 

-.67 

-.67 

1 *77 o 

-.65 

-.65 

-.65 

-.65 

-.66 

3.162 

— . 90 

-.90 

-.91 

-.91 

-.91 

6.621 

- 1.2 

- 1.2 

- 1.2 

- 1.2 

- 1.2 

10.00 

- 1.6 

- 1.5 

- 1.5 

- 1.5 

- 1.5 

17 . 7 H 

- 1.6 

— 1.5 

- 1.6 

- 1.8 

- l.B 

31.62 

- 2.1 

- 2.1 

- 2.1 

- 2.1 

- 2.1 

66.21 

- 2.3 

- 2.3 

-2 .6 

- 2.6 

- 2.6 

100.0 

- 2 . o 

-2 .6 

- 2.7 

- 2.7 

- 2.8 

177.1 

- 2.6 

- 2.9 

- 3.0 

- 3.0 

- 3.1 

316.2 

- 3.2 

- 3.2 

- 3.3 

- 3.3 

- 3.5 

562 . 1 

- 3.6 

- 3.5 

- 3.6 

- 3.7 

- 3.9 

1000 . 

- 3 .o 

- 3 .o 

- 6.0 

- 6.1 

- 6,3 

177 b . 

- 5.1 

- 6.2 

- 6.6 

- 6.5 

- 6.6 

3162 . 

- 6.6 

- 6.5 

- 6.7 

- 6.9 

- 5 , 0 

5623 . 

- 6.7 

- 6.9 

- 5.1 

- 5.2 

- 5.3 

10000 

- 5.1 

- 5.3 

- 5.5 

- 5.5 

- 5.6 

• 1000 c + Oo 

- 0 . 6 

- t .7 

- 6.8 

- 6.6 

- 6.3 

. 1000 t +07 

- 7.5 

- 7.7 

- 7.6 

- 7.3 

- 7.3 

. 10001+08 

-C . 6 

-0.5 

- 8.6 

- R .6 

- 6.6 

. 10002+09 

- 9 . o 

- 9.5 

- 9.5 

- 9.5 

- 9.5 


■j 


,200 

.300 

.500 

.700 

.900 

.950 

.990 

-.11 

-. 11 

-.11 

-. 11 

-.11 

-.11 

-.11 

-.16 

-. 16 

-.16 

-. 16 

-.16 

-.16 

-.16 

-.23 

-.23 

-.23 

-.23 

-.26 

-.26 

-.26 

-.33 

-.33 

-.33 

-.36 

-.36 

-.35 

-.35 

-.67 

-.67 

-.66 

-.69 

-.50 

-.50 

-.51 

-.66 

-.66 

-.68 

-.69 

-.71 

-.72 

-.72 

-.91 

-.92 

-.95 

-.97 

-.98 

-.97 

-.97 

- 1.2 

- 1.2 

- 1.3 

- 1.3 

- 1.2 

- 1.2 

- 1.2 

- 1.5 

- 1.6 

- 1 . 7 . 

- 1.7 

- 1.5 

- 1.6 

- 1.3 

- 1.9 

- 1.9 

- 2.1 

- 2.0 

- 1.7 

- 1.6 

- 1.6 

- 2.2 

- 2.3 

- 2.6 

- 2.6 

- 2.0 

- 1.8 

- 1.6 

- 2.6 

- 2.7 

- 2.8 

- 2.7 

- 2.6 

- 2.1 

- 1.7 

- 3.0 

- 3.1 

- 3.1 

- 3.0 

- 2.7 

- 2.6 

- 1.9 

- 3.3 

- 3.6 

- 3.6 

- 3.6 

- 3.0 

- 2.7 

- 2.0 

- 3.7 

- 3.6 

- 3. ‘8 

- 3.6 

- 3.2 

- 2.9 

- 2.2 

-6 . 0 . 

- 6.1 

- 6.1 

- 3 . 8 

- 3.3 

- 3.1 

- 2.3 

- 6.6 

- 6.6 

- 6.3 

- 3.9 

- 3.5 

- 3.2 

- 2.6 

- 6.7 

- 6.7 

- 6.6 

- 6.1 

- 3.7 

- 3.6 

- 2.8 

- 5.1 

- 6.9 

- 6.5 

- 6.3 

- 3.9 

- 3.7 

- 3.1 

- 5.3 

- 5.0 

- 6.7 

- 6.6 

- 6.2 

- 6.0 

- 3.6 

- 5.6 

- 5.1 

- 5.0 

-6 .8 

- 6.5 

- 6.3 

- 3.7 

- 6.2 

- 6.1 

- 6.0 

- 5.9 

- 5.6 

- 5.6 

- 6.9 

- 7.2 

- 7.2 

- 7.2 

- 7. 1 

- 6.8 

- 6.6 

- 6.0 

- 8.6 

- 8.6 

- 8 , 3 

- 8.2 

- 7.9 

- 7.7 

- 7.2 

- 9.5 

- 9.5 

- 9.5 

- 9.6 

- 9.1 

- 8.9 

- 8.3 



Table 2.2 Ln (s (q. » B.)) 

w D A. 3 
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.010 

.020 

, OAO 

.060 

.100 

. 200 

1 1 

.1000 

-7.6 

-7.1 

-6. A 

-6. 0 

-5.5 

-4*8 

.1770 

-7. A 

-6.7 

-b.O 

-5.6 

-5.1 

-4 .4 

. 3162 

-o.9 

-6.2 

-5 . 5 

-5.1 

-A. 6 

-3.9 

. 6623 

-6. 5 

-5.3 

-5.1 

-A. 7 

-A. 2 

-3.5 

1.000 

-6.1 

-5. A 

-A. 7 

-A. 3 

-3.8 

-3.1 

1.770 

-5.7 

-5.1 

-A .A 

-A .0 

-3. A 

-2 . 8 

3.162 

-5.0 

-A. 9 

-A. 2 

-3.8 

-3.3 

-2.6 

5.623 

-6.5 

-A. 9 

-A .2 

-3.8 

-3. 3 

-2.6 

10.00 

-5. .6 

-A. 9 

-A. 2 

-3.8 

-3.3 

-2.6 

17.76 

-5.6 

-A .9 

-A. 2 

-3,6 

-3.3 

-2*7 

31.62 

-5.6 

-A. 9 

-A .2 

-3.6 

-3.3 

-2.8 

66.23 

-6.6 

-A. 9 

-A. 2 

-3.8 

-3. A 

-2.9 

100. J 

-5.6 

-A. 9 

-A. 2 

-3.9 

-3.5 

-3.1 

177.6 

-5. 6 

-A. 9 

-A .2 

-3.9 

-3.6 

-3.4 

316.2 

-5.6 

-A .9 

-A. 3 

-A .0 

-3.8 

-3.7 

562.3 

-5.6 

-A. 9 

-A .A 

-A. 1 

— A . 0 

-4*0 

1000. 

-5.6 

-5.0 

-A. 5 

-A .3 

-A. 3 

-4.4 

1778 . 

-5 . b 

-9.0 

-A. 6 

-A. 6 

-A. 6 

-4.7 

3162 . 

-5.6 

-5,1 

-A. 9 

-A. 9 

-A. 9 

-5.1 

5623 . 

-5.7 

-5.3 

-5.1 

-5.2 

-5.3 

-5.4 

10000 

-5.6 

-5 . 5 

-5.5 

-5.5 

-5.6 

-5 • 7 

. 1000E+06 

-6.6 

-6.7 

-6.e 

-6,3 

-6.7 

-6* 6 

.10C0E+O7 

-7.9 

-b.O 

-7.8 

-7.7 

-7.7 

-7.5 

, lOQOt *0 b 

-9.0 

-t.9 

-8.6 

-8.7 

-8.7 

-8.7 

. 1000E+09 

■-"lo. 

-9.0 

-9.8 

-9.3 

-9.8 

-9.8 


.300 

.500 

.700 

.900 

.950 

,990 

-A. A 

-3.9 

-3.5 

-3.2 

-3.1 

-3.1 

-A.0 

-3.5 

-3.1 

-2.8 

-2.7 

-Z.T 

-3.5 

-3.0 

-2.7 

-2. A 

-2.3 

■* 2 ■ 3 

-3.1 

-2.6 

-2.2 

-2.0 

-1.9 

-1.9 

-2.7 

-2.2 

-1.8 

-1.6 

-1.6 

-1.5 

-2. A 

-1.9 

-1.6 

-1, A 

-1.3 

-1.3 

-2 .2 

-1.7 

-1.5 

-1. 3 

-1.2 

-1.2 

-2 .2 

-1.8 

-1.5 

-1.3 

-1.3 

-1.2 

-2.3 
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-1.7 
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-2. A 

-2.1 
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-3.0 
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-3.0 

-2,7 

-2.0 

-3.8 

-3.8 

-3.7 

-3.2 

-3.0" 

-2.2 

— A • 1 

-A . 1 

-3.9 

-3.5 

-3.2 

-2. A 

-A '.A 

-A. A 

-A . 1 

-3.7 

-3. A 

-2.6 

-A. 8 

-A . 6 
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-3.9 

-3.5 

-2.9 

-5.1 

-A. 8 

-A. 6 

-A. 1 

-3.8 

-3.2 

-5.3 

-5.1 

-A. 9 

-A. 3 

-A.l 

-3.5 

-5.5 

-5.3 

-5.1 

-A. 6 

-A. A 

-3.7 

-6.5 . 

-6.3 

-6.1 

-5.8 

-5.5 

-A. 9 

-7.5 

-7. A 

-7.3 

-6.9 

-6.7 

-6.0 

-8.7 

-8.6 

-8. A 

-8.1 

-7.8 

-7.2 

-9.8 

-9.7 

-9.6 

-9.2 

-9.0 

-8 1 3 



Table 2.3 R.^ (q. 
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RAB 1 
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.020 

.060 
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-.12 
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-.11 
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-.11 
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-. 99E-01 
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-.63 
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-.28 
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-.62 
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-.25 
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-.20 

-.25 

-.61 
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-.63 
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-.65 

-.13 
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-.66 
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-.96 
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-.96 
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and the results with the interpolated value of R^g were used 
in calculating 4^ via (2.207). 

This completes the calculation of A(ujy) and 4>(y) , hence the description 
of the Scan Data Processor, for the Suboptimal Design. 

The Tracking Loop for the Suboptimal Design is identical with that 
of the Optimal Design, except for changes due to the lower dimensions of 
the state and parameter vectors. Generally 

i. The last two rows of the state vector estimate and corres- 
ponding rows and/or columns of associated matrices were eli- 
minated; 

ii. The last row of the parameter-vector (estimate) and corres- 
ponding rows and/or columns of associated matrices were eli- 
minated. 

This simple adaptation procedure results from the special formulations 
of the state- and parameter-vectors adopted. It was employed in the 
simulation easily and without problem. 

This same general procedure was used also in obtaining the Ron- 
Adaptive Design (recall (2.83), (2.84)) — simply by (initializing 
and then) pruning the several vectors and matrices back to the appro- 
priate dimensions, starting with either the optimal or suboptimal 
designs (both give the same results). This too was -used in simulation 
without problem. 

This concludes the formal development of the receiver algorithms. 
We turn next to the simulation studies and discussion of results. 
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SECTION III 


SIMULATION STUDIES 

The principal simulation result used in evaluating the performance 

of the various receiver designs was the calculated root mean square 

error (RMSE) (sample) statistic. A large number of studies of RMSE 

versus 0 were conducted, where 

sep 

8 = 6 - (3.1) 

sep R w J 

These studies were parameterized, in general, by the following: 

DSNRDB (or S/N) = 20 log Q a (3.2) 

P - a R /a (3.3) 

P, the phase difference at the beginning of the simulation 

run ' (3.4) 

F = U) /2JI, the scalloping rate (Hz) (3.5) 

8L SC 

®MLS ~ t * ie 3 db beam width of the MLS transmitting antenna (3.6) 

^RCVR ~ t * ie P resume d 3 db beam width in the receiver of the MLS 

transmitting ante nn a (3.7) 

Other RMSE studies performed included: 

1. RMSE versus (B^^/B^g) > parameterized by S/N, p, p, F^ and 


sc 


0 se p5 this study was deemed important because of the presump- 
tion in the Optimal and Suboptimal receivers of a value for 
the MLS ground (transmitting) antenna beam width, a parameter 
not currently transmitted in the preamble of the MLS signal. 


2. RMSE versus F^^, parameterized by S/N, p, p, 0 s , B^g, 


B. 


RCVR* 
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Two series of error time-history studies were conducted also, all 

runs -in both cases being, parameterized by the full set, S/N, p, [3, F , 

s c 

0 , as well as other variants, such as the presence or 

sep’ MLS RCVR ’ r 

absence of the constraints imposed on the estimates, etc. One set of 
error time-history studies, termed Interference Acquisition scenario 
runs , evaluated the "pull-in" ability of the interference tracker for 
potential use in interference acquisition. The second set of error 
time-history studies, termed Crossing Multipath scenario runs, evaluated 
the tracking performance of the receiver designs in dynamic environments 
involving multipath interference which is initially out-of-beam, then 
closes to in-beam, crosses, and finally opens to out-of-beam. 

A major portion of the research was devoted to simulation 
studies — both program development and receiver performance evaluation. 

A 

The programs used in the receiver performance studies, totaling about 
100 pages of FORTRAN code, are listed in Appendix A and are briefly 
discussed in the first part of this section. The second part of this 
section presents a representative selection of data from the various 
simulation runs, and discusses the results. 

A. SIMULATION MODELS ■ 

The bulk of the computation performed in the -simulation was done in 
FORTRAN subroutines described as follows': 

MLSSUB: Simulation of the environment (via a state-space 

model with "true"-state, x(k)) and the received 
(envelope) signal vector, u(k) ; we note here . that 
within a scan the quantity '* 
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RCVR: 


Pj=P + u> sc T j (3.7a) 

is used as a better approximation of the phase 
difference (rather than simply £>) in computing the 
jth sample, u ^ , of the received envelope signal.. 
Computation of the estimate, 0(k|k), of the angular * 
coordinate 6(k), given the observations vector, 
u(k) ; 

CONTRL: Conduct of the simulation run, including performing 

all I/O operations, special initializations and 
performance evaluation calculations. 

The macro-flow- charts in Figure 3.1 show the organizations of these 
routines and their interrelations. 

The simulation main program, MLSSIM, simply establishes COMMON 
storages and calls MLSSUB. Subroutine MLSSUB calls a library gaussian 
pseudorandom number generator function GAUSS and the following two MLS 
functions, in addition to RCVR and CONTRL: 

PMLS: The antenna selectivity function, p MTQ (0 ), of the 

MLS transmitting antenna, used in constructing the 
observations vector u(k). The following -23 db 
sid'elobe function was used in the study: 


WV = 


lt/4, 


n 

COS 7 r z 

Lrrp- 


Z = 1 


I Z 


1 1 - 


.here z = 2.48^^ 

0 g - angle from beam center 


(3.8) 

(3.9) 

(3.10) 
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Figure 3.1 Flow Charts for MLSSUB, (OPT) RCVR 


and CONTRL 










THA: The antenna scanning function, 0^(x) , of the MIS 

transmitting antenna, used in constructing the 
vector u(k). The function in (2.124) above was 
specified in the MLS specifications and used in the 
study. 

The programs MLSSIM, MLSSUB, THA, DFLTR1 (a Ist-order digital filtering 
subroutine used when the threshold receiver is running) and a BLOCK DATA 
program, MLS, collectively constituted a software module (or file), 
denoted MLSSIM. The function PMLS, and BLOCK DATA program PMLSID were 
put into a separate module, PMLS1, to facilitate changing the p MTC! (*) 
function. The lis touts of these and other programs found in Appendix A 
are grouped into modules. 

Two scenarios of subroutine RCVR were used, which are distinguished 
by module (or file) names suggestive of their natures, as follows: 
OPTRVR: .The optimal structure, comprising the Scan Data 

Processor and the Tracking Loop; calls subroutine 
PHILM (which calculates SDP quantities 4>, A, and is 
described below) as well as matrix arithmetic sub- 
routines MATSM, MATMUL and MATINV. 

THDRVR: A design similar to present commercial approaches 

using thresholding principles [ 11] . The simulation 
model, which involved 

i) A 3db-below-peak threshold (referred to 
the linear envelope) 

ii) A 300 microsec tracking gate for inter- 
ference exclusion. 

53 



iii) 


A dwell gate for "loss-of-track" 
decisions 


iv) Input of the log envelope signal, fil- 
tered by a 25 KHz low pass filter, 
v) Error filtered with a 10 r/s bandwidth 
low pass filter for evaluation, 
was developed to provide baseline data for perfor- 
mance comparisons. See the references [11], [4, pp. 
25,26] and the program in Appendix A for further 

details. The program calls subroutine DFLTR1 to 
provide the 25 kHz filtering. 

Two versions of PHILM were used, distinguished by module names, as 
follows : 

PLOPT: The Scan Data Processor calculations of 4>, A for the 

Optimal design. This uses function THA, (2.124) 
above, and functions P and PDOT given below. We 

note here that in the calculation of matrix D in 
PLOPT, analogous to (3.7a), the quantity 

A A A 

p. = p + uu t. (3.10a) 

J sc j 

A 

was used . for p in (2.103) in an effort to improve 

A 

the receiver performance by making use of the tu - 
information at this point. 

PLSUB: The SDP calculations of <J>, A for the Suboptimal 

design. This calls the same functions THA, P, PDOT' 
used by PLOPT, preceeding', but also calls subrou- 
tines WAWBJ (which calculated "on-line" conditional 


averages 
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The functions P , 
versions of PHILM 
P: 


W A tu j ^ and W B (u j using ( 2 - 194 )> (2.195) 
and succeeding equations) and subroutine SWFCHS 
(which did the table look-up and necessary interpo- 
lation to produce the values s , s and R _ (2.208), 

W A. W B. j 

J 1 


(2.209) and (2.210) respectively needed to calculate 
matrix 4> via (2.207). See the program in Appendix A 
for further details. 

PDOT constitute the module P0PT1 and are used by both 
. They are described as follows: 

The antenna selectively function p(8 g ) assumed in 
the receiver design to be in effect in the received 
signal vector u(k). The following -23 db sidelobe 
function was used in the study: 

H/4, iz| - 1 


p(0 e ) = 


n 

cos ^ z 
i - z* 


, jz| #1 


where 2 = 2.4 6 e /B RCVR 

8 g - angle from beam center 


(3.11) 

(3.12) 

(3.13) 


This is the same function as P M pg( 8 e ) 5 (3.8), but it 
was programmed twice with distinct names to allow 
different functions to be used (alternate function 
were not studied, however). Figure 3.2 shows the 
function p(*)> (3.11) above, centered in the same 
65-sample window on the same sampling grid 
(FSAMP = 160 kHz, OMEGA = 20,000 Deg. /sec.) as in 
the peppivpr. 
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RUN PPLOT 
DHLS = 1.00000 


OMEGA = 20000,0 

FSAHP = 160000* 

D THETA = 0.125000 

JMAX = 65 

THEHIN ^ -4.00000 

THEMAX = 4.00000 


THETA 

DEGREES 

-4.00000 

-3.87500 

-3.75000 

-3.62500 

-3.50000 

-3.37500 

-3.25000 

-3.12500 

-3.00000 

-2.Q7500 

-2.75000 

-2.62500 

-2.50000 

-2.37500 

-2.25000 

-2.12500 

- 2.00000 

-1.87500 


ORDINATE AXIS: MIN=-0.695066E-01 MAX- 1.00000 

INCREMENT- 0.17B251E-01 


-02 

-02 


0.887470E— 
0.531045E- 
0.000000 
-0.607831E-02 
-0.116305E-01 
— 0 . 152869E—01 
-0.158933E-01 
-0.127983E-01 
-0 . 607825E— 02 
0.33S622E-02 
0.138107E-01 
0.230294E-01 
0.285714E-01 
0.282949E-01 
0.208731E-01 
0.625487E-02 
-0.140207E-01 
—0 ♦ 367328E— 01 


-1.75000 

-0.571548E— 01 

-1.62500 

-0.695066E-01 

-1.50000 

-0.676436E-01 

-1.37500 

—0 . 459040E— 01 

-1.25000 

-0.468134E-07 

-1.12500 

0.721765E-01 

-1.00000 

0.169962 

•0.875000 

0.289645 

'0.750000 

0.424579 

-0.625000 

0.565685 

■0.500000 

0.702312 

*0.375000 

0.823339 

*0.250000 

0.918414 

-0.125000 

0.979128 

0.000000 

1.00000 

0.125000 

0.979128 

0.250000 

0.918414 

0.375000 

0.823339 

0.500000 

* 0.702311 

0.625000 
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0.169962 
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0.531045E-02 

4,00000 

0.887470E— 02 


* 

* 

* 

* 

*. 

*. 

*. 

*. 

* 

* 


* 

* 

*. 

*. 

*, 

* 

* 

* 


Figure 3.2 Antenna Selectivity function, p(6), used 



dp(ej 

PDOT: The function ^ r . On the basis of (3.11) thru (3.13) 

e 

the following was used: 


r 


-0.3n 

B RCVR 


signum ( 2 ), z 


1 


dp(8e) 

d6e 


0.3jt 2 ! 

rcos( ztl )*/ 2 - 

cos (z-l)7t/2 - sin(z_1)7t/2 , 

cosu im/2 (z _ 1)n/2 A 2 *1 

L b rvcr 1 

(z+l)7t/2 

(z-l)7t/2 J 1 


(3.14) 


Several versions of subroutine CONTKL, distinguished by module 
names, as follows, were used, conducting the simulation through various 
types of scenarios and test runs: 

CTLACQN: An interference acquisition scenario, testing the 

"pull-in" power of the interference tracking algo- 
rithm. Initially no interference is present and the 
interference tracker states are tethered to "idler"' 
values, as follows: 

\ = 0.5 a (3.15) 

o 

A Ak 

=0-1.5 degrees (3.16) 

t 0 

0^ = 0 degrees/second (3.17) 

a o 

= n/2 radians (3.18) 

u> gc = 0 radians/second (3.19) 

o 

A step of interference then occurs with prescribed 
parameter values , the interference tracker is un- 
tethered and the estimate error-time-histories are 
generated. 
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CTLCRMP: 


CTLMSTH: 


CTLOE : 


CTLMSSBB : 


A crossing multipath, scenario, testing the tracking 
abilities of a receiver design from an out-of-beam 
interference condition, thru a crossing in-beam 
condition to a out-of-beam situation again under 
prescribed conditions; error-time-histories are 
generated. 

An RMS error versus 8 study in which, by a suit- 

sep J 

able nonzero assignment of U)^, the effects of |3 are 

approximately averaged out as the statistical sample 

of desired size, 100 scans, evolves. 110 scans are 

calculated and the first 10 discarded in computing 

error statistics for each value of 0 . The pro- 

sep e 

gram increments 0 g and repeats the calculation for 

up to 13 values of 8 
c sep 

Another, more expensive, RMS error versus 8 g study 

in which for each value of 0^ 0 is stepped through 

20 values uniformly spaced on the (-n,7t) interval 

and, for each value of |3, 30 scans are generated, „ 

the first 10 being discarded and the latter 20 being 

used in the statistical calculations. 

An RMS error versus B study, where 

ratxo J ’ 


B ratio " B RCVR /B MLS' 


(3.20) 

The study is performed in a manner similar to that 


in CTLMSTH above, including the use of nonzero U) gc . 
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7 values of B . . were used in the range 
ratio ® 

(10)~ % < B . < (10) % 

— ratio — 

with 


and 


b rcvr 10 
b mls > 10 


1 ° 

RCVR 


, when B . . <1 

ratio 


(3.21) 


(3.22) 


, when B >1 

ratio 


(3.23) 


MLS 


CTLMSFS: An RMS Error versus F gc study. This study is also 

performed in a manner similar to that in CTLMSTH 
above, except that is assigned higher and higher 
integer multiples of the minimum value (0.135 Hz in 
AZIMUTH) which would integrate p over a 2n interval 
during a 100-scan time period. 


Block data programs were included in many modules to initialize 
COMMON storages. A library of general math and utility programs was 
also used and is included in the program listings in Appendix A. 


All simulation runs were made with Azimuth angle function data, 
though the option for elevation simulation was included in the programs. 


Parameter values 

written 

in storages are, 

as follows : 




AZ 

EL 


9 A = 

max 


62.666667° 

30.666667° 

(3.24) 

9 A . = 

min 


-62.0° 

0.0° 

(3.25) 

T 

T s = 

Rep. Rate = 

1/T = 

6.233333 ms 
6 . 6 ms 
13.5 Hz 

1.533333 ms 
0.4 ms 
40.5 Hz 

(3.26) 

(3-27) 

(3.28) 
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The results of nearly 50 • runs are reported here in 23 plots and 23 
tables. Table 3.1 summarizes the runs made--by type of run and CONTRL 
module, parameter values used, RCVR. type used and figure numbers and 
table numbers in which the results appear. [In these discussions 
"OPTRVR" implies the use of modules OPTRVR and PLOPT (an abuse of ter- 
minology, perhaps), "SUBOPT" implies the use of modules OPTRVR and 
PLSUB . ] 


Figure 3.3 shows the computed RMS error (0 component) versus 0 


sep 


for several S/N values for the OPTRVR, p=0.8. Figure 3.4 presents the 
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Table 3.1 Summary of Simulation Runs 
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Figure 3. 


i 
1 
I 

J I : I : i : 5 : 1 

3 KMSE (0 •), OPTRVR, p=0.8 

sep 
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Figure 3. 


4 RMSE (9 ) 

sep 


OPTRVR, p=0. 5 
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same type of data for p=0.5. The scatter in the points for the lower 
S/N cases is due to noise; the apparent odd symmetry in the scatter 
about the origin is due to several causes: 

i. The lack of symmetry between the TO, FRO scans wrt the noise 
samples ; 

ii. The effect of noise on the (3-estimate (in one run, not 

A 

included here, (3 was tethered to the true value (3 and the 
calculated RMSE (6 ge p) (0" component) exhibited more nearly the 
expected even symmetry wrt 0 g . 

iii. The use of the same noise sample function for each data point. 

Figures 3.5 thru 3.7 show comparisons of RMSE (® se p) f° r the 
receivers for various values of S/N and p. Figure 3.6, for example, 
shows that with S/N=20 db, p=0.8, the optimal design offers improvement 
by a factor up to about 30 over, the threshold receiver. The suboptimal 
design, without tracking phase difference, shows improvement by a factor 
up to about 15 over the threshold receiver. The non-adaptive design, 
basically of optimal structure , but premised on interference-free recep- 
tion, shows • approximately equivalent performance as the threshold 
receiver. 

Tables 3.2 thru 3.12 give the full results of the OPTRVR and SUBOPT 

simulation runs associated with Figures 3.3 thru 3.7 — error statistics 

for each coordinate of the state estimate as a function of 0 . One 

sep 

observation that can be made from this data is that the mean error at 
small separation angles becomes a more significant contributor to the 
RMSE as the S/N diminishes. This probably signals a diminishing vali- 
dity of the LOE criterion (error being in a neighborhood of zero) , due 
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Figure 3.5 RMSE (0 ), comparison of 

sep 

S/N=30 db, p=0. 8 


receivers , 
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Figure 3.6 RMSE (9. se p) 3 comparison of receivers, 
S/N=20db, p=0. 3 
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Figure 3.7 RMSE ( e sep )> comparison of receivers 
S/N = 20db, p=0. 5 
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Table 3.2 Error Statistics vs I 0 
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Table 3.3 Error Statistics vs 0 , OPTRVR, S/N=‘40db, p=0.5 
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5.55 


.2218-01 

•2695-01 

. 196 

• 6 <'• 3 


.3 75 

2.23 

• 1 53 1 

.3068-01 

2.19 


.1818-01 

• 3vx6E-0 1 

.114 

. 66 3 


. e>25 

.942 

.1235-01 

. 322E-01 

.944 


. 157E-\j1 

.3095-01 

• 98 5E-C1 

.517 


.8 73 

.3 76 

. 7205-02 

,2318-01 

. 370 


. 845E-G2 

, 240E-01 

•622E-C1 

• 5C»t 


1.13 

.227 

.4846-02 

.204E-01 

.222 


.616E-G2 

. 216E-01 

.5625-01 

. 570 


1 • 38 

.174 

.3935-02 

.2025-01 

.183 


•453E-02 

. 200E-01 

. 535E-C1 

.697 


1.63 

.159 

. 338E-02 

•201E-01 

.174 


.4C9E-02 

.2075-01 

•734E-01 

.743 


1.88 

.160 

.3 26E-02 

• 200E-01 

. 177 


. 370E-02 

♦202E-01 

,11V 

.833 



Table 

3.4 Error 

Statistics 

VS 0 , 

OPTRVR, S/N- 

30db, p=0.8 




sep 



NR UN 


OTY 

THESEP 

ALFA 

THETA 

THEOOT 

ALFAR 

THETAR 

THRDOT 

8 

WSC 

£ MEAN i 

-.375 

-.403 

-. 214E-02 

.214E-02 

-.428 

- . 250E-02 

-.733E-02 

-.6386-01 

-.143 


-.125 

-1.06 

. 182E-02' 

.404E-02 

7.02 

-.6736-01 

-.8876-02 

.9196-01 

-.453 


.125 

5.74 

-.308E-O1 

-. 8 63E-02 

-.773 

- . 522 E-0 1 

-. 350E-01 

.183 

-.165 


.375 

.375 

— .24 7 E— 02 

.2526-03 

-1.43 

-• 173E-01 

* 239E-02 

-.517E-01 

-.166 


.625 

• 470t-01 

-.363E-03 

• 656E-03 

-.263 

-.445 £—02 

— .949E-03 

— , 1 92 E-01 

-.7496-01 


.875 

.162E-G1 

-. 5C0E-03 

. 964E-03 

. 1396-01 

. 213E-02 

-.2436-02 

. 873E-02 

-.7255-01 


1.13 

.138E-01 

-. 5 73E-03 

. 767E-03 

-• 239E-02 

.1126-02 

— • 143E-02 

• 909 E-0 2 

-.198 


1.38 • 

.143 £—01 

-.6176-03 

,4826-03 

,2196-03 

, 158E-02 

-.1096-02 

.9326-02 

-. 185 


1.63 

, 6418-02 

-» 343E-03 

« 292E-03 

61 3 £—02 

.1056-02 

-.1096-02 

. 150E-01 

-.314 


1.86 

• 711E-03 

•383E-04 

.128E-03 

-.8016-02 

.2936-03 

-.293 E-0 3 

,2306-01 

-.300 

tRMS i 

-. 375 

2.40 

• 169E-01 

.2776-01 

2.68 

• 4 20E-01 

• 474 E-01 

.174 

.757 


-.125 

7.58 

.235E-01 

.3G2E-01 

7 © 75 

.7706-01 

♦3C0E-01 

.422 

1.12 


.125 

7.03 

.5626-01 

.3316-01 

5.08 

.110 

.7486-01 

.444 

.8 76 


.375 

2.05 

.145E-01 

•276E-01 

2.55 

• 329E-01 

•353E-01 

.146 

.733 


.625 

.892 

. 108E-01 

• 290E-01 

1.05 

.275E-01 

.4156-01 

.100 

.611 


.875 

.359 

. 694E-02 

. 229E-01 

.383 

.1416-01 

.2926-01 

• 5 85 E-01 

.560 


1.13 

.223 

• 4 98E-02 

.2076-01 

.229 

.994 E— 02 

.2556-01 

© 632E-01 

.756 


1.30 

.173 

.3636-02 

.196E-01 

-.186 

.6976-02 

* 228E-01 

« 6 19 E— Cl 

.747 


1.63 

.158 

• 336E-02 

. 200E-01 

.176 

.625E-C2 

♦ 2 39 £-01 

o 93 9 E-01 

.915 


1.80 

.159 

.326E-02 

• 200E-01 

.178 

. 550E-0Z 

. 226E-01 

. 999E-C1 

.92.6 

£S TO i 

-.375 

2.35 

, 160E-O1 

.2766-01 

2.65 

. 419E-01 

.468E-01 

.162 

.743 


-.125 

7.51 

.2346-01 

.3006-01 

3,30 

• 374 E-01 

• 2 86 E-0 1 

.412 

1.C3 


.125 

5.32 

,4336-01 

•320E-01 

5.02 

.9636-01 

.661E-01 

.405 

. 860 


.375 

2.01 

.143E-01 

» 2 76E-01 

2.11 

• 2 60E-01 

.353 E-0 1 

.137 

,709 


.625 

.891 

. 108E-01 

. 290E-01 

1,02 

♦ 271 E-01 

•415E-01 

, 986E-01 

.606 


.675 

.359 

* 692E-C2 

, 229E-01 

.383 

,1406-01 

•291E-01 

• 5 786-01 

.555 


1.13 

.223 

.4 95E-02 

• 207E-01 

.229 

» 987E-02 

©255E-01 

• 626 E— 01 

.730 


1. 38 

.172 

♦ 3 7 8E-02 

.198E-01 

.186 

. 679E-02 

•22 8 E-01 

• 6 12E-01 

.724 


1.63 

.158 

. 337E-02 

, 200E-01 

.176 

.6166-02 

• 239 E-01 

.9276-01 

.8 60 


1.88. 

. 159 

. 326E-02 

.2006-01 

.178 

.5496-02 

.226E-01 

.972E-01 

.876 


Table 3.5 Error Statistics vs 0 , OPTRVR, S/N=30db, p=0.5 

sep ’ s K 



NRUN « 


5 


QTr 

THESEP 

ALFA 

THETA 

THEDOT 

ALFAR 

THE TAR 

THRDOT 

a 

WSC 

6ME AN » 

-.375 

.514 

•269E-01 

.1086-01 

1.17 

-.5866-01 

-. 197E-01 

.7276-01 

-.323 


125 

.256 

.247E-D1 

* 140E-01 

3.47 

-.100 

— .200E-01 

.220 

-.499 


.125 

3.20 

-.747E-G1 

-.1746-01 

1.09 

. 738E-02 

-.1126-02 

.484 

-.450 


.375 

1.41 

-.4516-01 

-.1316-01 

.499 

.2626-01 

. 177E-01 

.119 

-.325 


. 625 

.662 

-.4 59E-01 

. 204E-C2 

.841 

.786E-01 

• 14 2E-02 

.389 

-.516 


. 675 

.106 

-.963E-02 

.6066-03 

.4206-01 

.8676-02 

. 292E-03 

•330E-01 

-.296 


1.13 

•2596-01 

-• 543E-02 

.229E-02 

— • 128E-C1 

•398E-02 

— .231E-02 

.3326-01 

-.376 


1.38 

-.139E-02 

-.3186-02 

.1656-02 

-.1556-01 

.439E-02 

-. 127E-02 

.3646-01 

-.378 


1.63 

-.164E-C1 

-.1 5CE-Q2 

.102E-02 

-• 262E-01 

.3136-02 

-.4616-03 

•485E-C1 

-.523 


1 . o 8 

-.256E-01 

. 3 24E-03 

. 706E-03 

-.3166-01 

. 504E-04 

-.4286-03 

•638E-G1 

-.610 

ERK5 l 

375 

1.62 

. 521E-01 

. 330E-01 

1.70 

.7836-01 

.3856-01 

.312 

.964 


-.125 

3.55 

• 515E-01 

•345E-01 

3.83 

.119 

•342E-01 

.612 

1.16 


.125 

3.86 

. 958E-C1 

. 4 3 3E-01 

2.63 

•366E-01 

. 385E-01 

.595 

1.09 


.375 

1. 76 

• 596E-01 

. 375E-01 

1.51 

.6036-01 

•416E-01 

.245 

.835 


.625 

1.05 

' .6866-01 

.683E-01 

1.25 

.113 

.964E-01 

.647 

1.13 


.875 

.307 

. 1916-01 

•259E-01 

.320 

.2476-01 

.364E-01 

.170 

.926 


1.13 

.212 

.148E-01 

. 281E-01 

.219 

.1926-01 

.344E-01 

.139 

.869 


1.38 

.165 

♦102E-01 

. 256E-01 

.181 

.1266-01 

.2606-01 

.118 

.021 


1.63 

.156 

. B48E-02 

. 2 5 7E-01 

.175 

.1116-01 

.2816-01 

.146 

1.12 


1.88 

.159 

. 845E-02 

, 267E-0 1 

. 177 

.9686-02 

.2696-01 

.228 

1.27 

ES TO > 

-.375 

1.54 

.4466-01 

.3126-01 

1.23 

. 519E-01 

.3316-01 

.303 

.908 


-.125 

3.54 

. 451E-C1 

.315E-01 

1.62 

.6356-01 

.277E-01 

.571 

1.04 


. 125 

2.16 

• 600E-0 1 

• 3966-01 

2.40 

♦358E-01 

.3856-01 

.346 

.992 


.375 

1.04 

.3916-01 

.3516-01 

1.43 

.5436-01 

• 377 E— 0 1 

.215 

.769 


.625 

.812 

* 5 10E-01 

.603E-01 

.924 

.8056-01 

.964E-01 

.517 

1.00 


. 875 

.288 

» i 6 5E-Q1 

.25-96-01 

.318 

.2316-01 

.3646-01 

.167 

.878 


1.13 

• 2x1 

• 1 37E-01 

.2806-01 

,219 

.1886-01 

.3436-01 

.135 

,783 


1.38 

.165 

•974E-02 

.2556-01 

.181 

.1186-01 

•260E-01 

.112 

.729 


1.63 

• .155 

. 8 3 5E-02 

.2576-01 

. 173 

• 106E-01 

•261E-01 

.137 

.994 


1.88. 

.157 

•644E-Q2 

.2676-01 

.174 

.9686-02 

. 269E-0 1 

.219 

1.12 


Table 3.6 Error Statistics vs e ■ , Ui'i'KVK, S/W=2Udb, p=U.« 

sep . 



Np L,N « 


6 


OTY 

THES6P 

ALFA 

THETA 

THEDOT 

ALFAR 

THETAR 

THROOT 

6 

■ wsc 

EMEANi 

-.375 

.746 

.3736-01 

. 1 7 3E-r01 

1.23 

-.137 

-. *78E-01 

.175 

-.501 


-.125 

.777 

.2916-01 

.1076-01 

2.06 

- .72* E-01 

-.2656-02 

.323 

-.*68 


. 125 

2.60 

-. 67CE-01 

-.159E-01 

.739 

—.1 *3E-01 

-.22*6-01 

.922 

-.30* 


.375 

1.19 

-. A05E-01 

-.5686-02 

.16* 

• 1 9* E-0 1 

. 189E-01 

.182 

-.535 


.625 

. 369E-01 

-.1*86-01 

-, 169E-02 

1.16 

.163 

.16*6-01 

.352 

-.586 


.675 

. 125 

-. 120E-01 

-.1*36-02 

,133 

.327E-01 

.**06-02 

.131 

-.316 


1.13 

• 203 E-01 

— . *69E-02 

.251E-02 

-.2266-01 

• 8 68 E-02 

-.2776-02 

.3796-01 

-.*33 


1.38 

-.3816-02 

-. 269E-02 

. 151E-02 

-.3326-01 

. 7**E-02 

-.2*56-02 

. 506E-01 

-,*95 


1.63 

-.1 57E-01 

-.1*66-02 

. 2*7E-03 

-, *79E-0 1 

.520E-02 

809E-03 

. 7 1 7E— 01 

-.659 


1.88 

-, 2A2E-01 

.1796-03 

. 698E-03 

-. 502E-0 1 

« * 08 E-03 

-.321E-03 

, 78*E-01 

-.667 

EPHS: 

-.375 

1.58 

.6196-01 

.*096-01 

1.79 

.191 

.665E-01 

.*23 

1.19 


-.125 

2 • A 1 

. AA6E-01 ' 

. 308Er01 

2. *5 

♦ 938E-01 

.3656-01 

.6** 

1.0* 


. 125 

*.05 

. 987E-C1 

. *77E-01 

1.30 

,86*E-01 

. 621Er01 

1.32 

.920 


.375 

1.66 

. 577E-G1 

.*306-01 

1.3* 

. 7 69 E-0 1 

• 5* 7 E-0 1 

.312 

1.10 


.625 

1.00 

« *65 E-01 

. 56*6-01 

1.30 

.186 

. 8976-01 

.50* 

1.19 


.675 

.260 

,1956-01 

,28 *E-01 

.309 

. *29 E-0 1 

• 360E-01 

.215 

.863 


1.13 • 

.201 

.1*06-01 

, 267E-01 

,221 

,315 E-01 

.**26-01 

.1*8 

.908 


1.38 

. 166 

. 1016-01 

.25*6-01 

.187 

• 2 1 5 E-0 1 

. 338E-01 

.151 

1.07 


1.63 

.155 

. e*2£~02 

. 252E-01 

.182 

.16*6-01 

. 32 1 E-01 

.195 

1.33 


1.88 

. 158 

• 8* 2E -02 

.26*6-01 

.182 

,15*E-01 

. 325E-01 

.277 

1.27 

ESTOJ 

-.375 

1 . 39 

. *95 E -01 

• 371E-01 

1.30 

.133 

.*626-01 

,385 

1.08 


-.125 

, 2.26 

.3376-01 

.269E-01 

1.33 

. 596E-01 

. 36*E-01 

.557 

.93* 


.125 

2.93 

. 72* E-01 

,*506-01 

1,07 

.8 52 E-0 1 

. 579E-0 1 

.9*2 

.669 


. 375 

1. 19 

.*116-01 

• *26E-01 

1.33 

, 7** 6-01 

, 51AE-01 

.25* 

1.05 


.625 

i .00 

. aaIe-oi 

. 56* E-Cl 

.580 

.388E-01 

.882E-01 

.361 

1.03 


.875 

. 260 

. 15*1-01 

. 283E-01 

.279 

« ? 78 E-0 1 

, 357E-01 

.171 

.802 


1.13 

.200 

.1326-01 

.2666-01 

.220 

.3036-01 

.**16-01 

.1** 

.798 


1.38 

.166 

,97*E-C2 

• 2 53E-01 

. 18* 

.201 E-01 

. 337E-01 

.1*2 

.9*5 


1 . 63 

.155 

.630E-02 

.2 52 E-01 

. 1 7fc 

.1556-01 

.321E-01 

.181 

1.15 


1.88 

.156 

.842E-02' 

• 26*E-01 

.175 

.15*E-01 

•325E-01 

.266 

1.08 


Table 3.7 Error Statistics vs 0 , OPTRVR, S/N=20db, p=0.5 

sep 9 9 9 F 



NRLN 


. 7 


-j 

■P- 


QTY 
EMt AN: 


EPKS» 


TH6SEP 

ALFA 

-.375 

.935 

-.125 

1.23 

.125 

1.03 

.375 

.957 

.625 

.522 

.675 

.153 

1.13 

-.416E-02 

1.36 

.2836-01 

1.63 

-.4126-01 

1.86 

-. 502E-01 

-. 375 

1.30 

-.125 

1.76 

.125 

2.19 

.375 

1.66 

.625 

.636 

.675 

.293 

1.13- 

. 201 

1.36 

. 202 

1.63 

.154 

1.68 

.157 

-.375 

.900 

-. 125 

1.27 

.125 

1.93 

.375 

1.35 

.625 

.722 

.875 

.249 

1.13 

. 2C1 

1.36 

.200 

1.63 

.146 

1.88 

.149 


Table 3.8 Error 


THETA 

ThEDOT 

.112 

. 292E-01 

. 9 37E-01 

, 300E-01 

-.102 

-.403E-01 

-.130 

-» 347E-01 

-« 675F-01 

-.601 E— 02 

-. 305E-01 

-.395E-02 

-.929E-02 

. 357E-02 

1 70E-C1 

-. 114E-01 

- . 2 6 8 E -0 2 

. 247E-02 

. 18 3E-02 

.5476-03 

.146 

. 575E-01 

.129 

,55 5 E-01 

.177 

.784E-01 

.208 

.102 

.110 

, 786E-01 

.451E-01 

. 3 69E-0 1 

• 310E-01 

.4166-01 

. 590E-01 

,6446-01 

. 164E-01 

,3216-01 

• 1 52E-C1 

.3276-01 

,9326-01 

.4956-01 

• 8 89E-01 

.4666-01 

.145 

.6726-01 

.163 

.9636-01 

.864E-01 

.7646-01 

• 3 32 E-01 

.3876-01 

• 2 96E-01 

♦ 41 4 E-01 

.5658-01 

.6336-01 

• 161 E-01 

.320E-01 

.151 E-01 

. 327E-01 


Statistics vs 0 , 

sep 


ALFAR 

THETAR 

• THROOT 

8 


wsc 

.716 

-.126 

-• 501E-01 

.460 


-.757 

1.27 

-.118 

-.3296-01 

.735 


-.630 

1.73 

♦ 637E-01 

. 130E-01 

1.03 


-.511 

.720 

, 9 89 E-01 

• 58 8 E-01 

.458 


-.862 

.540 

.103 

« 17 3E-01 

,414 


-.686 

. 716E-01 

.264E-01 

* 606 E-02 

.118 


-.603 

. 317E-01 

.1086-01 

-. 362E-02 

.628E 

-01 

-.661 

.1306-01 

•216E-01 

,1756-01 

3 4 9E 

-01 

-35.9 

.5486-01 

•744E-02 

-.2776-02 

.107 


-.698 

• 590E-01 

. 567E-03 

-.657E-04 

.108 


-1.05 

1.17 

.178 

. 844E-01 

.658 


1.56 

1.76 

.167 

• 58 5E-01 

.950 


1.56 

1.93 

,8496—01 

. 407E-01 

1.36 


1.06 

1.39 

,199 

.137 

.616 


1.66 

.784 

.141 

.888E-01 

.691 


1.24 

.263 

.4826-01 

.468E-01 

.263 


1.26 

.203 

,3736-01 

» 4 7 9 £ - 0 1 . 

.253 


1.26 

.204 

.8206-01 

•845E-01 

.794 


36.6 

. 176 

.2186-01 

.3576-01 

.286 


1.30 

.176 

• 1 75 E-0 1 

. 335E-01 

.419 


1.83 

.930 

.126 

679E-01 

.471 


1.37 

1.23 

.118 

.4836-01 

.602 


1.43 

. 864 

.561 E-01 

.3866-01 

.885 


.926 

1.19 

.173 

.124 

.675 


1.42 

.568 

.963E-01 

• 8 71 E-01 

.554 


1.04 

.253 

.3 89 E-01 

. 464E-0 1 

.235 


1.11 

.200 

. 3 56E-01 

. 477E-01 

.245 


1.08 

.203 

.7916-01 

• 827E-0 1 

♦ 793 


7.06 

.167 

.2 05 E-0 1 

.3566-01 

.265 


1.10 

.166 

..175 E-0 1 

. 335E-01 

.405 


1.50 


S/N=14 db, p=0. 8 



NRlfN » 


6 


OTY 

THESEP 

ALFA 

THETA 

T Ht DOT 

£ 1 6 A N s 

-.375 

.674 

.756C-01 

. 2266-01 


-.125 

.6 03 

. 570E-01 

. 141E-01 


.125 

1.50 

-.158 

-.5776-01 


.375 

1.64 

-.166 

-.4316-01 


.625 

. 221 

-.466E-01 

-.1126-01 


.3 75 

.128 

- . 2 93E-0 1 

-.138E-02 


1.13 

. 801E-G2 

-.1266-01 

.3236-02 


1.39 

-. 299E-C1 

-.4936-02 

• 305E-02 


1.63 

-. 429E-C 1 

-.11 3E-02 

. 121E-02 


1.69 

-.4656-01 

.2006-02 

• 32 3E-03 

E P P S « 

-.375 

.96 6 

.975E-01 

. 506E-01 


-.125 

1.36 

.6726-01 

• 3 86E-01 


. 125 

2.23 

.258 

.985E-01 


.375 

2.19 

.263 

.116 


. 625 

.768 

.917E-01 

.764E-01 


.675 

.2 64 

.4566-01 • 

.44 3E-01 


1.13 

. 194 

. 3056-01 

.3826-01 


1.38 

. 161 

. 206t-01 

. 335E-01 


1.63 

.154 

. 1 5 5E-01 

.3106-01 


1.69 

.157 

.1596-01 

. 333E-01 

ESTDJ 

375 

.692 

.615E-01 

.4536-01 


-.125 

1.10 

. 660E-01 

•» 359E-01 


. 125 

1.65 

.203 

.-7986-01 


.375 

1.46 

. 201 

. 108 


.625 

.756 

. 769E-01 

. 7766-01 


.875 

.263 

.3506-01 

.4436-01 


1.13 

.194 

.277E-01 

.3616-01 


1.38 

.158 

. 200E-01 

. 3336-01 


1.63 

.148 

. 1 5 5 E -0 1 

. 3C9E-01 


1.88 

.149 

.1676-01 

. 3336-01 


Table 3.9 Error Statistics vs 0 

sep 


ALFAR 


TH6TAR 

thrdot 

8 

WSC 

.444 


-.147 

-.5146-01 

.358 

-.007 

.672 


- • S13E-01 

-.1406-01 

.838 

-.210 

.248 


-.1686-01 

-.1956-01 

.716 

-1.28 

-.149 


-.136 

-.5616-01 

.784 

-.863 

.611 


.179 

.4406-01 

. 477 

-.889 

.104 


.661E-01 

• 837E-02 

.225 

-.824 

-.1986- 

01 

.2e0E-r6l 

-'.214E-03 

.125 

-.760 

-.5796- 

01 

• 1 25 E-01 

-. 561E-02 

.124 

-.666 

-.6516- 

01 

.8946-02 

' -, 294E-02 

.108 

-.815 

-.6666- 

01 

,3136-02 

-• 696E-03 

.124 

-1.03 

.906 


.228 

. 8646-01 

.630 

1.46 

1.17 


.130 

.5056-01 

1.21 

.848 

.939 


.152 

.8156-01 

.990 

3,48 

.747 


.231 

.9906-01 . 

1.21 

1.48 

.751 


.220 

.108 

.723 

1.51 

.302 


.103 

.7576-01 

.431 

1.43 

.210 


.6836-01 

» 697E-01 

.314 

1.29 

.165 


. 493 E-01 

. 5 69 E-01 

.309 

1.23 

.186 


. 3 23 E-01 

•423E-01 

.346 

1,39 

.186 


.2986-01 

.4336-01 

.522 

1.76 

.769 


.175 

.6956-01 

.518 

1.21 

.774 


.101 

.4866-01 

.869 

.821 

.905 


.151 

•791E-01 

.684 

3.23 

.732 


.167 

. 816E-01 

.915 

1.20 

.436 


.128 

.9866-01 

.542 

1,22 

.283 


.7906-01 

• 752E-01 

.368 

1.16 

.209 


. 623 E-01 

.6976-01 

.288 

‘ 1.04 

.176 


. 4 77E-01 

. 566E-01 

.283 

1.04 

.174 


.3116-01 

.4226-01 

. .329 

1.13 

.173 


o 296E-01 

. 43 3E-01 

.508 

1.43 


OPTRVR, S/N=14db , p=0.5 



NR UN « 


3 


CTY 

THESEP 

ALFA 

THETA 

THEDOT 

ALFAR 

THETAR 

THRDOT 

EKE ANJ 

-.375 

-11.9 

-.101 

. 234E-02 

3.80 

-. 305E-01 

-.9186-02 


-.125 

-9.05 

-•375E-01 

.9556-02 

17,1 

-.9716-01 

-. 417E-01 


.125 

-9.53 

. 2 71E-01 

17 5E-01 

13.7 

.4156-01 

.7CAE-01 


.375 

-9.52 

. 79 5E-01 

— .793E-03 

5.77 

.531E-01 

•447E-02 


.625 

-2.01 

.192E-01 

-. 178E-01 

.767 ' 

.4026-01 

. 188E-01 


.875 

.310 

-. 332E-02 

— . 399E-Q2 

.328 

.7 48E-02 

.611E-02 


1.13 

.222 

-.486E-Q2 

— . 100E-02 

.225 

.673E-02 

• 576E-03 


1.38 

. 630E-01 

-. 113E-02 

. 233E-03 

, 570E-01 

• 200E-02 

-. 632E-03 


1.63 

— » 299E-01 

.7536-03 

. 201E-03 

. 375E-02 

-.642E-03 

-. 617E-03 


1.88 

166E-01 

•911E-03 

• 149E-03 — » 529E-02 

-.1146-02 

— . 39 IE-03 

ER HS 1 

-.375 

16.0 

.119 

.200 

5.01 

•863E-01 

.189 


-.125 

15.1 

.5626-01 

• 100E+00 

18.3 

.201 

.246 


.125 

16.9 

.6246-01 

.119 

16.4 

.153 

.255 


.375 

11.5 

• 9456-01 

• 762E-01 

6.66 

.102 

.146 


.625 

6.51 

.990E-01 

.7496-01 

4.97 

.116 

.108 


.675 

1.76 

. 518E-01 

• 595E-01 

2.23 

,7 89E-01 

• 861E-01 


1.13 

.705 

.2066-01 

. 522E-01 

.666 

.227E-01 

. 497E-01 


1 .38 

.372 

.787E-02 

• 236E-01 

.408 

.972E-02 

•276E-01 


1.63 

.271 

•8G1E-02 

. 193E-01 

.310 

» 1 16 E-Ql 

.2716-01 


1.88 

.'191 

. 620E-02 

• 184E-01 

.199 

• 1 08 E-0 1 

.224E-01 

ESTD! 

-.375 

10.7 

•629E-01 

.200 

3,26 

.8076-01 

.188 


-.125 

12.1 

. 4 19E-Q1 

.9956-01 

6.64 

.176 

.242 


.125 

1 A . 0 

, 563E-01 

.118 

8.95 

.147 

.245 


.375 

6.54 

. 5 10E-01 

. 762E-01 

3,32 

. 873E-01 

.146 


.625 

6.19 

. 971E-0 1 

.7286-01 

4.91 

.109 

.107 


.875 

1.73 

. 5 17 E— 01 

• 594E-01 

2.20 

• 78 5 E-0 1 

. 859E-01 


i. 13 

.669 

.2006-01 

. 522E-01 

.648 

.2176-01 

.4976-01 


1.38 

.366 

• 779E-02 

* 236E-01 

.404 

.9 52 E— 0 2 

. 276E-C 1 


. 1.63 

.269 

•798E-02 

. 193E-01 

.310 

.1166-01 

• 271E-01 


1.88. 

.190 

. 8 15E-02 

• 184E-01 

.199 

.1086-01 

.2246-01 


Table 

3.10 Error Statistics vs 

0 , SUBOPT 

, S/N=30db 

, p=0.8 



sep 



NRUN ■ 


5 


QTY 

THESEP 

ALFA 


THETA 

THEOOT 

At FAR 

THETAR 

THRDOT 

EMEANI 

-.375 

4.73 


.254 

.3896-01 

-.802 

-.332E-01 

-•755E-0L 


-.125 

5.61 


-.280 

-.4646-01 

-.568 

.198 

.4216-01 


.125 

-1.55 


-. 207E-03 

-.3016-01 

7.03 

.577 

.102 


.375 

4. 06 


-.215 

-.338E-01 

-.105 

.4886-01 

.734E-01 


.625 

-.260 


-» 1 B2E-01 

-.2866-01 

2.81 

.233 

•377E-01 


. 675 

.432 


392E-Q1 

-.1126-01 

.8 79 

.905E-01 

•157E-01 


1.13 

.244 


-.2406-01 

-.2596-02 

. 228 

<3266-01 

. 416E-02 


1. 38 

• 3 68b 

-01 

-.6866-02 

.6186-03 

.3006-01 

.106E-01 

. 114E-03 


1.63 

-.291c 

-01 

.9906-03 

.1296-02 

-.3086-01 

.2096-02 

-.950E-03 


1.88 

-•341E 

-01 

o 2 89E-02 

.985E-03 

-.4296-01 

— .273E-02 

-.964E-03 

fcR MS t 

-.375 

4.81 


.280 

.169 

3.52 

.200 

.181 


-.125 

5.94 


.294 

.109 

3.75 

.210 

. 749E-01 


.125 

5.45 


.895E-01 

.9696-01 

7.07 

,640 

.171 


.375 

4.29 


.248 

.149 

2.94 

.188 

.178 


.625 

2.43 


.128 

.114 

•2.89 

.249 

.106 


.875 

.920 


• 7 91 E-0 1 

.666E-01 

1.00 

.116 

♦662E-01 


1.13 

.349 


. 4 1 6E-01 

.3916-01 

.356 

• 623E-01 

•605E-01 


1.36 

.178 


. 202E-01 

.305E-01 

.195 

, 273E-01 

. 3 69E-0 1 


1.63 

.174 


. 108E-01 

.2676-01 

.213 

.1436-01 

.3186-01 


1.86 

.171 


.1216-01 

.2636-01 

. 203 

• 1 71E-01 

. 2896-01 

ESTOs 

-.375 

.679 


.117 

.165 

3.43 

.197 

.164 


-.125 

1.93 


♦ 908 E-0 1 

,9866-01 

3.70 

. 711E-01 

. 619E-01 


.125 

5.23 


. 895E-0 1 

.921E-01 

.762 

.276 

.137 


. 375 

1.38 


.123 

.145 

2.94 

.182 

.163 


. 625 

2.42 


.127 

.110 

.661 

• 8 79E-01 

•985E-01 


.675 

.813 


.667E-01 

.6576-01 

.478 

.7326-01 

.8476-01 


1.13 

.250 


.3406-01 

•390E-01 

.274 

. 531E-01 

.6046-01 


1.38 

.174 


.1906-01 

♦305E-01 

.193 

.2526-01 

. 369E-01 


1.63 

.171 


. 107E-01 

,2676-01 

.211 ■ 

.1416-01 

.3186-01 


1.83 

.167 


.1176-01 

.2636-01 

.198 

.1696-01 

.2896-01 


Table 

3.11 Error Statistics vs 

6 1 , SUBOPT, S/N=20db 

ocm 7 7 

, p=0. 8 




NRUN « 


6 


QTY 

THESEP 

ALFA 

THETA 

THEDOT 

EMEANJ 

-.375 

-.743 

-.8486-02 

.2606-01 


-.125 

-.712 

.118E-02 

.155 E-01 


.12 5 

-.690 

, 247E-02 

— .122E-01 


.375 

-.743 

. 1 37E-01 

— , 245E-01 


.625 

-.547 

. 118E-U1 

— « 1 94 E-0 1 


.0 75 

« 1 50 E-01 

-.1086-01 

868E-02 


1.13 

.112 

-.1356-01 

-.1996-02 


1.38 

.1796-01 

-•462E-C2 

•781E-03 


1,63 

-. 2 94 E-01 

.1976-02 

• 103 E-02 


i. as 

-.2926-01 

.2906-02 

, 953E-03 

ERMS: 

-.375 

3.05 

.119 

.100 


-.125 

3.43 

. 553E-01 

.552E-01 


.125 

3.44 

.4806-01 

• 491E-01 


.375 

3.^5 

.114 

• 9 63 E-01 


.625 

2.2 8 

.121 

.100 


.875 

.948 

♦ 71 6 E-01 

•635E-01 


1, 13 

.336 

.3726-01 

.367E-01 


1.38 

.170 

. 1966-01 

. 286E-01 


1.63 

.154 

.1126-01 

,2646-01 


1,88 

.156 

.9176-02 

• 25 4E-01 

ESTDi 

-.375 

2,96 

.119 

* 966E-01 


-.125 

3.35 

.5536-C1 

.5306-01 


.125 

3.37 

.4796-01 

.4766-01 


.375 

2.96 

.113 

•931E-C1 


.625 

2.21 

.120 

.9636-01 


.875 

.947 

.7106-01 

.6296-01 


1. 13 

.317 

.3466-01 

. 366E-01 


1.38 

.169 

. 1 91E-01 

.286E-01 


1 . o 3 

.151 

.110 E-01 

.264E-01 


1.88 

.153 

.6706-02 

•254E-01 


Table 3.12 Error Statistics vs 0 , SUBOPT 

sep 


ALFAR 


THETAR 


THRDOT 


3. 90 
A .43 
A. 48 
3.99 
2.58 
1.00 
.252 

.258E-01 

-.432E-01 

•.622E-Q1 

3.93 

4.45 

4.5C 

4.02 
2. 63 

1.03 
.352 
. 192 
.215 


.497 

.431 

.409 

.512 

.495 

.258 

.246 

.190 

.210 

.201 


-.811 

-.245 

.380 

.842 

.418 

.178 

.653E-01 
.210E-01 
.648E-02 
— . 2 81E— 02 

.868 

.305 

.444 

.901 

.422 

.201 

.106 

.500E-01 

•210E-01 

.285E-01 

.311 

.182 

,229 

.322 

.5618-01 
• 937E-01 
. 84 IE-01 
.454E-01 
• 20GE-01 
.2846-01 


-.165 
-.361E-01 
,78 IE— 01 
.152 

.659E-01 

.3086-01 

•111E-01 

.161E-02 

-.1688-02 

-.302E-02 

.271 

• 8 49 E-01 
.102 
.274 
.143 
.123 

. 9 64E-01 
.5696-01 
.3696-01 
. 370E-0 1 

.215 

.769E-01 
» 656E-0 1 
.228 
.127 
.120 

• 958 E— 01 
.568E-01 
.369E-01 
• 369E-01 


S/N=20db, p=0. 5 



in part to the relatively large value of GQGT (8.8) used, ~(2.7r/s) 2 (in 
AZ) . This value was selected to facilitate tracking a varying U 3 gc under 
the condition that it is changing at the maximum rate at which it can be 
tracked in the present structure, based on angle function rep. rate 
considerations (recall (3.135)) (i.e. without extracting its derivative 
and integrating (as in the 6D LOE design)). This was a practical con- 
sideration that penalized some the performance in the steady state (when 

w was not changing) . 
s c 

Figure 3.8 summarizes a study of the SUBOPT receiver; it shows that 

1. In the worst cast wrt p, i.e. p=180°, the constraints on the 

estimate helped for small 8 and did not influence the 

sep 

performance for larger 0 : and that 

sep ’ 

2. Averaging over noise effects and' p simultaneously by using a 
small non-zero p ( =u) sc ) to sweep p over a 2 n interval seems 
adequate generally, with some error possibly arising for 
small 0 g * This method of averaging over p was used 
generally. 

Figure 3.9 and Tables 3.13 thru 3.16 following show the effects of 
a form of mismatch between the receiver design and its signal environ- 
ment, specifically a mismatch in the presumed and actual values of the 
transmitting antenna beamwidth, (given the antenna selectivity func- 
tions, p, Pjjpgj are otherwise identical). Much can be said about the 
necessity of tuning a high-performance signal processor to its signal 
environment, but the manifest RMSE sensitivity here to B-~~/B,. r ,, is 
nevertheless striking. The tables provide some insight, for example 


79 



j: LEGEND : 

U ^ CTLOE, g=180°, 20 scans/point 
I without constraints 

Lg q CTLOE, 8=180°, 20 scans /point 

with constraints 

Iq. 0 __ CTLOE, Averaged over 20 8 values, 

20 scans/value of 8 , with constraints 

CTLMSTH, 8 averaging via 

F =.135Hz 100 scans/point, with 

, — , sc — , , 

constraints 
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Figure 3.8 EMSE (^ ), SUBOPT, — 

ef fects of 8 averaging ; 
and constraints, S/N=20db” / . 
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NRUN * 


1 


oo 

to 


OTY 

EMEAN: 


ERMS I 


E S TD * 


BRATIO 

ALFA 

THETA 

THEDOT 

ALFAR 

THETAR 

THPDGT 

a 

WSC 

.316 

-3.75 

-.553 

-.130 

-4,76 

,721 F-01 

•335E-01 

.734E-01 

-20.6 

.464 

-2.47 

-.345 

-. 599E-01 

-3.20 

.252 

.101 

.598 

-16.6 

.681 

-1.27 

-.151 

-. 221E-01 

-1.67 

•906E-01 

. 362E-01 

.662 

-5.05 

1 .00 

-.961E-02 

-. 2 34E-02 

.127E-02 

-• 210E-01 

. 392E-02 

-. 11 0E-02 

. 390E-01 

-.456 

1.47 

-49.2 

.636 

. 646E-01 

-49,5 

-.687 

-.748E-01 

-1.43 

.728 

2.15 

-6.92 

.798 

. 774E-01 

-1,24 

-.422 

-.118 

-1.11 

-.289 

3.16 

.587 

1.13 

.170 

4.94 

1.11 

.189 

-1.14 

-2.90 

.316 

5.87 

.676 

.463 

7.39 

.208 

.352 

1.18 

24.1 

.464 

3.49 

.409 

.337' 

4.82 

.474 

.452 

1.08 

19.7 

.681 

1.48 

.177 

.114 

2.16 

.225 

.196 

1.06 

6.29 

1.C0 

.158 

.915E-02 

. 2 57E-01 

.177 

. 1 14E-01 

. 261E-01 

.124 

.931 

1.47 

55.2 

.638 

.171 

55.5 

.689 

.166 

1.68 

.746 

2.15 

8.25 

.817 

.235 

4.35 

.492 

,156 

1.81 

1.33 

3.16 

1.79 

1.16 

.317 

5.15 

1.48 

.421 

1.67 

3.51 

.316 

4.51 

.389 

.446 

5.65 

.196 

.351 

1.18 

12.5 

.464 

2.47 

.218 

.331 

3.60 

.402 

.441 

.896 

10.6 

.681 

.768 

.922E-01 

.112 

1.38 

.206 

.193 

.823 

■ 3,15 

1.00 

. 158 

• 885E-02 

. 257E-01 

.176 

.1C7E-01 

•261E-01 

.118 

. 812 

1.47 

24.6 

, 4 67E-01 ' 

.158 

25.0 

.538E-01 

.171 

.683 

■.161 

2.15 

4.48 

.174 

.222 

4.17 

.252 

.101 

1.42 

1.29 

3.16 

1.69 

.266 

.267 

1.43 

.979 

.376 

1.21 

1.98 


, OPTRVR , S/N=20db , p=0.8, 0 =1.5° 

ratio’ ’ K ’ sep 


Table 3.13 Error Statistics vs B 



NRUN 


2 


OTY 

BRATIO 

ALFA 

THETA 

THED0T 

ALFAR 

THETAR 

THRDOT 

B 

wsc 

6MEAN 1 

.316 

-11.6 

-. 589 

-.5576-01 

-14.8 

.296 

.122 

-.126 

-18.9 


.464 

-7,96 

-.331 

' -.149E-02 

-10.4 

.232 

« 922E-02 

.6316-01 

-20.7 


.681 

-4.04 

-.158 

157E-01 

-5.24 

.103 

• 18 IE-01 

.774 

-9,57 


1.00 

.122E-01 

-.6346-03 

.4936-03 

.3986-02 

• 654E-03' 

-.9046-03 

•108E-01 

-.173 


1.47 

-294 . 

,661 

• 179E-01 

-295. 

-.715 

- • 193E-01 

-1.46 

.787 


2.15 

-13.8 

.770 

• 444E-01 

6.62 

-.546 

-.142 

-.960 

-1.66 


3.16 

14.8 

-.110 

.237 

-.6726-01 

-4,71 

-.327 

.150 

-17.0 

ERMSt 

.316 

18,5 

.703 

.510 

22. 9 

.454 

.515 

1.26 

22.1 


. 464 

11.0 

.384 

.358 

15.0 

.442 

.437 

1.15 

24.1 


.681 

4. 68 

.178 

.116 

6.71 

.210 

.194 

1.08 

10.5 


1.00 

.164 

« 3 68E-02 

. 203E-01 

.177 

.4406-02 

.2066-01 

• . 608 E— 01 

.712 


1.47 

371. 

.663 

.101 

372. 

.716 

.106 

1.70 

.793 


2.15 

22.8 

,781 

.240 

18.3 

.588 

.240 

1.87 

3.08 


3.16 

32.5 

1.06 

.589 

36,0 

6,41 

♦ 626 

1,29 

22.4 

ESTO i 

.316 

14,2 

. 364 

.507 

17.5 

.345 

.500 

1.26 

11.6 


.464 

7.65 

.193 

.358 

10.9 

.377 

.437 

1.15 

12.4 


.681 

2.35 

. .8066-01 

.115 

4.19 

.183 

.194 

.749 

4.39 


1.00 

.164 

♦3626-02 

.2036-01 

.177 

.435E-02 

.2066-01 

.5986-01 

.690 


1.47 

226. 

.3916-01 

.9906-01 

227. 

.4146-01 

.105 

.659 

.9886-01 


2.15 

18.1 

.135 

.236 

17.1 

.218 

.194 

1,61 

2.59 


3,16 

28.9 

1.05 

.539 

36.0 

4.35 

.534 

1.28 

14.5 

Table 3.14 

Error Statistics vs B 

_ , 0PTRVR, 

S/N=30db , 

p=0. 8, 8 

=1.5° 




' , . • VX liVVU, U / 4. ’I — JUUU . U " W « - O 

ratio’ ’ ’ H 1 sep 



NR UN • 


3 


QTY 

BRATIQ 

ALFA 

THETA 

THEOQT 

ALFAR 

THETAR 

THRDOT 

B 

WSC 

EME AN i 

.316 

-7.05 

-.856 

-.136 

-23.0 

' -.555 

-•881E-01 

. 777E-02 

-19.5 


* 4t>4 

-1.93 

-.654 

— .917E-01 

-16.5 

-.561 

-.624E-01 

.474 

-17.6 


.681 

-2.33 

-.207 

— . 198E-01 

-6.15 

— , 12 9E-02 

« 294E-01 

.815 

-8.59 


1.00 
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An estimation of a and by integration of the signal, such 
as in done here, may be especially vulnerable to uncertainties 
in other parameters that affect signal energy, such as beam 
width; and 

2. The errors in the 0 and 6,, components are heavily biased, when 
Prati 0 ^ j indicating loss of LOE validity, specifically wrt 
decoupling of estimates of errors. 

Perhaps peak detection, maybe in conjunction with an integration 
approach, would provide more robust estimates of a and a^. Smaller 
errors in the 0 and 0., components should then result, but the residual 
errors might be reduced further by having the nominal beam width at each 
air terminal coded and transmitted in the MLS preamble. Additional 
robustness and possibly some simplification advantages might result from 
use in the receiver of a p(*) function which doesn't model exactly any 
particular transmitting antenna selectivity function but does produce a 
best fit in some sense over the class of transmitting antenna selec- 
tivity functions to which the receiver is exposed. This is a problem 
area that needs further study. 

Figure 3.10 presents an RMSE (F gc ) study for scalloping rates in 
the first lobe of the rep. rate sampled signal spectrum, i.e. 


F < Hz = 6.75 Hz 

sc — 2 


(3.32) 


All the values of F for which the RMSE was calculated, except 0.0 Hz, 
cause p to integrate an integral number of times around a 2n interval as 
the run progresses hence the results should be independent of the 
initial p. The RMSE value at 0.0 Hz is probably dependent upon the 
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value of 0°, during the run. Table 3.17 shows all computed sta- 
tistics of all error components for this simulation run. 

Figure 3.11 and the associated Tables 3.18 thru 3.23 present the 

results of several statistical error studies versus F with the latter 

sc 

ranging on the fifth lobe of the rep. rate sampled signal spectrum, i.e. 
47.25 < F < 60.75 Hz. . (3.23) 

— sc — 

These studies indicate 

1. The OPTRVR without constraints is definitely superior to the 
same receiver with constraints (Tables 3.18 and 3.19). 

2. The SUBOPT performance is the same with and without con- 
straints (Tables 3.20 and 3.21). 

3. The OPTRVR with tethered estimates u> sc as shown performs 
the same with and without constraints (Tables 3.22 and 3.23). 

4. Items (2) and (3) above suggest it is the constraint on u> sc 
only that degrades the OPTRVR performance referenced in item 
(1) above. 

Relaxing the constraint on iu in OPTRVR may be beneficial here without 

harming the performance for low F cases, but there is no certainty of 

s c 

that without more tests. The benefits of the constraints generally were 
established in Figure 3.8 but that involved the SUBOPT receiver where 
there was no u) estimate. Clearly, relaxing the ui constraint in the 
OPTRVR will not in any sense enable tracking of u) gc above half the rep. 
rate, since the 5D I0E does not exploit individually (for u) - 
information) the TO and FRO scan pulses (as the 6D LOE would do). 
Further sutdy at other values of S/N, p and 8 are needed here. 
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Table 3.17 Error Statistics vs _5 se >_OPTRVR, lst_Lobe S/ N=3 0db, p=0.8, 6,^=1. 5 




Figure 3.11 RMSE (F ) , comparison of receivers and 


effects of constraints, 5th lobe, S/N=30db, 

p=0.8, 0 =1.5° 
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.1826-01 

.579E-C1 

.802 

333. 

, „ 


t; . 3 

.3 29 

. 126c-31 

. 613E-01 

.367 

_ .1706-01 

.6476-01 

.938 

355, ... 



6\. e b 

.2x5 

. 7 7 If -02 

« 3 8 86-01 

.266 

.1136-01 

.471 E-0 1 

1.45 

343. 


E S TO s 

4 7. 3 

.166 

.333 E-0? , 

. 1966-01 

.179 

.429E-02 

. 207E-01 

1.65 

.532 



47.7 

.141 

•746c- 02 

.4216-01 

» 2C9 

• 973E-02 

.4606-01 

.966 

9.54 



4c. 7 

.179 

.334E-C2 

. 19 6E-C1 

.166 

,4246-02 

• 2C6E-01 

.940 

1. 48 



45.6 

. i 7d 

, 345E-02 

. 200E-01 

.219 

,4346-02.. 

.2126-01 

.929 

1.49 



5^.9 

.179 

. 3 5 5 L-v 2 

»2u9E-01 

.214 

.42CE-02 

.203E-01 

.921 

1,23 



62.5 

.231 

.7956-42 

.477E-01 

.256 

,9606-02 

.5546-01 

.977 

2.33 



5 4 . ^ 

.214 

.6676-1,2 

.4896-01 

.222 

.9346-02 

, .562E-01 

,167 

1.34 



5 6.5 

. 179 

. 3296-02 

.1926-01 

.187 

.4206-02 

.2066-01 

.872 

.768 



57. ] 

.i 74 

. 333E-C2 

.2956-01 

.195 

.409E-02 

. 202E-01 

.844 

1.73 



5 6.2 

. 1 7b 

.3646-02 

.2066-61 

.168 

,4076-02 

.1976-01 

.799 . 

2.10 



55.3 

.215 

# 9 1 1, 6-02 

.5176-01 

,272 

.1266-01 

.5736-01 

.802 

2.45 



63.3 

.260 

.1016-01 

.6106-01 

. 249 

.1186-01 

. 643 E-0 1 

,932 

15,7 



fco .6 

.164 

. 560E-J2 

• 3 b3£-ul 

.212 

.8116-02 

. 467E-01 

1,45 

3.26 


Table 3.19 Error Stastistics vs F OPTRVR, 5th Lobe, S/N=30db, j?==0.8, 0 =1.5°, WITH CONSTRAINTS 

SC * , 5 £p 



Q T V 

F SC ‘ 

ALFA 

... ... 

TKETA 

THE DOT* ‘ 

ALFAR ' 

" THE TAR 

YBRDOT 

£(•'.£ AKs” 

”47,3 

” "-,5345- 

-01 ‘ 

*2225-02 “ 

*1525-03 

-.4376-01 " 

-"el95£-G2 

— o464 6—04 


4 7 a 7 

.494E— 01 

-o 1715-02 

.6285-03 

.5206-01 

.2536-02 

— , 129 £-02 


4S„7 

-.217E-01 

, 5475-03 

,1675-03 

-.2916-01 

.2326-03 

-.2496-03 


49* G 

-.1725-01 

— ol44E-03 

.5295-03 

-.1726-01 

.5856-03 

— .613E—03 


50.9 

- > 1455-01 

— « 126E-03 - 

■,1126-03 

-*1026-01 

.1206-02 

378 E-03 


52.5 

-.2495-02 

-.5515-03 

.409E-03 

*196E-01 

.9346-03 

3156-03 


54.0 

-.1025-01 

* 403c— 04 

.272S-SJ3 

-o 1176-01 

*4606-03 

-.6336-03 


55.5 

-.606E-Q2 

-.1465-03 

.8765-03 

-,1326-01 

.7C9E-03 

-.3036-03 


57.1 

-.I45E-01 

5006-03 

,5776-03 

-.3466-01 

. 1396-03 

-.1655-03 


5 cJ o 2 

— » 10 IE-01 

— , 393E-03 

*2325-03 

-*4546-01 

-« 152E-Q3 

— *9856-03 


59.3 

-.2665- 

-Cl" 

’ .2I7E-03 

.700E-03 

-.4696-02 

« 1I5C-03 

-.383E-03 


60 a 3 

.234 6- 

-01 

-.126E-02 

. 1726-03 

* 149 6-01 

*1616-02 

-.3236-G3 


60 * 3 

.6725-01 

-,3145-02 

,3356-03 

o 530E-01 

, 34EE— 02 

-.7116-03 

cRKS J 

47.3 

* 


, 410E-02 

.1935-01 

*231 

. 4495-02 

« 197E-0I 


47.7 

.224 


« 5365-02 

,2535-01 

*215 

o 663E— 02 

*2536-01 


4 2.7 

o 210 


. 4215-02 

,2315-01 

*227 

.510E-G2 

*2196-01 


49.6 • 

,198 


*3535-02 

*1916-01 

*214 

.44IE-02 

o 206E—01 


50.9 

,196 


u 425E"&2 

,2235-01 

.225 

*5436-02 

.2426 , -01 


52.5 

* 193 


*4295-02 

*2195-01 

* 226 

,4576-02 

.2165-01 


54.0 

,193 


* 3402-02 

*1806-01 

.211 

*4196-02 

.1380-01 


55.5 

.220 


,4372-02 

*•2396-01 

.221 

. 503 6-02 

.225E-01 


' 57.1 " 

“',200 


. 437E-02 

•227E-01 

,207 

« 503E-G2 

.2216-01 


58.2 

. 219 


,4745-02 

o230E**03. 

.259 

.5016-02 

•220E-31 


59.3 

,205 


, 4 766-02 

« 230 £—01 

,267 

,5526-02 ’ 

• ,2606-01 • 


60*3 

* 200 


*4325-02 

,2246-01 

.239 

" .7126-02 

*2866-01 


60.3 

» 216 


*4806-02 

c 1776-01 

.20 7 

,5476-02 

.1705-01 

" ESTD: 

' 47. 3 

,213" 


.3445-02 

.1936-01 

" .227 

.4046-02 

*5.976-01 


47.7 

.213 


,5625-02 

,2536-01 

« 203 

.6136-02 

a 25 3 5—0 1 


46.7 

' ,209 ” 


,9 18 £-02 

.231E-01 

.225 

,5096-02 

.2196-01 


49.8 

o 197 


.3335-02 

*1916-01 

,214 

, 4 376-02 

.2066-01 


50.9 

.195 


.4255-02 

,2225-01 

o & 2 “/ 

• ,5306-02 

*2436-01 


5 2.5 

,19 9 


,4235-02 

*2195-01 

r Z c 5 

*4476-02 

,2106-02 


54*0 

,193 


,3405-02 

* 1S0E-01 

.211 

* ^ 16 £***G2 

.18 8 £-01 


55.5 

,220 


,4376-02 

,2396-01 

,220 

.50 2E-C2 

•225E-Q1 

“ ”■ " ~ 1 

5 7.1 

' *199 


*4345-02 

.2276-01 

,204 

.5036-02 

,2216-01 


5 3.2 

,219 


* 4 726-02 

.230E-01 

,255 

*5016-1)2 

.220E-CI 


59.3 



.4765-02 

*2^06“G1 

,267 

, 5526-02 

,2605-01 


60. 3 

*20? 


.4636-02 

*224£-C*i 

.230 

.6936-02 

* 23 6E-0X 


60.9 

. 205 


.3646-02 

*1776-01 

.200 

. 4282—02 

.169S-GX 


• - V“j. 

Table 3.20 Error Statistics vs F , SUEOPT, 5th Lobe, S/N=30db, p=0.8, 0^^^=1.5 NO CONSTRAINTS 



NRUN ■ 


7 


0 T Y 

" ' FSC“‘ 

" ALFA 


THETA 

THEDOT 

“AIFAR ’ 

THETAR 

' “thrdot " ' ‘ — 

EMEANi 

97.3 

' -. 559E 

-01 

• 222E-02 

♦ 1 52E-03 

*' -.937E 

-01 - 

• 195E-02 

-.^696-04 


A 7 • 7 

• 9996 

-01 

-• 171E-02 

. 628E-03 

♦ 520E 

-01 

.253E-02 

-.1296-02 


A 8 . 7 

-.2176 

-01 

. 597E-03 

. 167E-03 

-*291E 

-01 

.2326-03 

-.2996-03 


99.8 

-.173b 

-01 

-.199E-03 

.5296-03 

-.1736 

-01 

. 585E-03 

-.6136-03 


50.9 

-. 195b 

-01 

-.126E-03 

-. 112E-03 

— . 1QHE 

-01 

.1206-02 

-.3786-03 


52.5 

299E 

-02 

-. 591E-03 

.9096-03 

. 196E 

-01 

.9596-03 

-. 315E-03 


5 9.0 

102E 

-01 

, 903E-09 

" • 272E-03 

-.1176 

-01 

• 960E-03 

— .668E-03 " 


55.5 

-.6066 

-02 

-.198E-03 

. 876E-03 

-.1326 

-01 

.789E-03 

-.3036-03 


57,1 

-.1956 

-01 

— . 500E-03 

. 577E-03 

396E 

-01 

.1396-03 

-.1656-03 


5 B , 2 

-• 101E 

-01 

-• 398E-Q3 

. 232E-03 

— » 959E 

-01 - 

. 152E-03 

— .985E-03 


59.3 

-. 285E 

-01 

» 217E-03 

" .7006-03 

' -.9696 

-02 

. 115E-03 

' -.3036-03 " " “ 


60.3 

. 239E 

-01 

-.126E-02 

• 172E-03 

. 199E 

-01 

.1616-02 

-.3236-03 


60.8 

• 672E 

-01 

-.319E-02 

.3356-03 

' . 530E 

-01 ' 

. 393E-02 

’-;7llE-03 

ERMS : 

97.3 

.220 


• 9 10E-02 

.193E-01 

.231 


* 999E-02 

. 197E-01 


97.7 

.229 


o 58BE-02 

.253E-01 

.215 


. 663E-02 

• 253E-01 


9 8.7 

.210' 


.9216-02 

' .231E-01 

.227 


♦510E-02 

“ .219E-01 ’ ' ' 


99.8 

.198 


. 3 53E-02 

.1916-01 

.219 


•991E-02 

•206E-01 


50.9 

.196 


.9256-02 

.2286-01 

.225 


.5936-02 

.293E-01 


52.5 

.198 


. 929E-02 

.2196-01 

.226 


.9576-02 

.216E-01 


59.0 

» 193 


.3906-02 

. 1 80E-01 

.211 


.9196-02 

.1886-01 

_ .-O’ 

55.5 

.220 


. 937E-02 

.2396-01 

.221 


.5086-02 

.225E-01 


57.1 

' .200 


.9376-02 

•227E-01 

.207 

. — »- 

. 5C3E-0Z 

"" .2216-01 ; 


58.2 

.219 


. 9 79E-02 

.2306-01 

.259 


•501E-02 

. 220E-01 


59.3 ' 

-.205 


.9766-02 

” .2306-01 

.267 

. „ 

.5526-02 

2606-01 


60.3 

.208 


.9826r02 

. 229E-01 

.239 


•712E-02 

.2866-01 


60.8 

.216 


. 9806—02 

.1776-01 

.207 


.5976-02 

.1706-01 

es to * ' ‘ 

97.3 ' 

' .213 


• 3 99E-02 

.193E-01 

.227 


.9096-02 

" ".197E-01 


97. 7 

.218 


.5626-02 

.2536-01 

.208 


.6136-02 

• 2 5 3 E-0 1 


98.7 

.209 


.9186-02 

• , 231E-01 

"■ .225 


.5096-02 

.219E-01 


99.8 

.197 


.3536-02 

.1916-01 

,219 


. 937E-02 

.2066-01 


50.9 

.195 


.9256-02 

.2286-01 

.229 


♦ 530E-0 2 

.293E-01 


52.5 

.198 


.9256-02 

.2196-01 

.225 


.9976-02 

,2166-01 . 


59.0 ” 

.193 


.3906-02 

' « 180E-01 

.211 

- — . 

,9166-02 

.18BE-01 


55.5 

.220 


.9376-02 

. 239E-01 

.220 


, 502E-02 

.2256-01 


57.1' ” 

' .199 


' .9396-02 

' .2276-01 

.209 

.. 

.5036-02 

.2216-01 


58.2 

.219 


.972E-02 

. 230E-01 

.255 


.5016-02 

. 220E-01 


59.3 

.203 


• 976E-02 

• .2306-01 

.267 


.552E-02 

.2606-01 


60,3 

.207 


.965E-02 

.229E-01 

.238 


.6936-02 

« 286E-0 1 


60 .8 

' .205' 


» 369E-02 

' .1776-01 

" .200 


. 926E-02 

"■ • 169E-01 


Table 3.21 Error Stastistics vs F^, ^SUBOPT, 5th Lobe, S/N=30db, p«0.8, e_=1.5°, WITH CONSTRAINTS 


sep- 



NR UN 


8 


Ln 


QTY 
£ Me AN ! 


ERMS J 


ESTO : 


F SC 

ALFA 

theta 

THE DOT 

ALFAR 

THETAS 

THR00T 

B 

WSC 

47. 3 

.162 

— .1426-02 

-.761E-C3 

.259 

.33 IE-02 

o 191E-03 

-• 81 75—13 

297, 

47 . 7 

.952E-01 

-.1045-02 

-,2005-03 

. 1 4 6 

,21 3 E-02 

-.186G-03 

,4 39 E-12 

299, 

4 c . 7 

•941b -0 1 

— o 10 IE — 02 

—.267S -03 

.146 

.22 4 E-02 

-.2265-03 

.LOBE-13 

306. 

4 9.8 

•939t-01 

— • 10GE—02 

-.2925-03 

« 146 

.222 E-02 

22 2E-03 

. 661 E- 14 

313. 

50,9 

•9386—01 

-.9735-03 

-.2765-03 

• 146 

,2165-02 

-» 2685-0 3 

• 3 84 E— 12 

320. 

52.5 

.930E-0I 

IC0E-02 

*■* 281E-03 

« 146 

. 219E-02 

217003 

-.2C4E-14 

320* 

54*0 

.110 

-.1135-02 

-.2435-03 

. 173 

. 238E-02 

-«2?2S~Cr3 

-1 • 57 

239, 

55.5 

.9396-01 

-.9945-03 

-.2605-03 

,14 6 

.2185-02 

-,2415-03 

,2195-12 

34 9* 

57.1 

.940 £-01 

— . 104 £—0 2 

-.266E-03 

.146 

•215G-02 

-, 203E-03 

-.4275-12 

359* 

58 » 2 

.94EE-C1 

J.G2E-G2 

272E-03 

.145 

♦2155-02 

— ,2315-03 

» 1 62 E— 12 

3 0 6, 

5 9c 3 

.9276-01 

— * 9925-03 

-.2955-03 

,146 

, 219E-02 

1915-0 3 

, 421E-12 

372 » 

50. 3 

.94 1 E— 0 1 

—» 101 E-02 

— * 2 30E— 03 

.146 

.2185-02 

— » 215003 

-.3 3 5 E-12 

3 7 9, 

60*8 

• 749E-0! 

922E-03 

-.1245-03 

,113 

,1345-02 

-.3735-03 

-.1845-12 

382. 

47 « 3 

.232 

. 369E-02 

,1996-01 

• 314 

« 542E-02 

,2105-01 

1,57 

297* 

4 7. 7 

.212 

. 3 59 £-02 

* 20 IE-01 

. 257 

•4985-02 

•217E-G1 

. 90 7 

2.99, 

4 £ , 7 

• .205 

• 3 5 65—0 2 

. 1996-01 

• 239 

. 4 79 5-02 

•208E-01 

,907 

3 0 6 o 

49. S ' 

.201 

* 3565-02 

. 2C0E—G 1 

* 260 

• 4 85E-02 

, 2 1 3 E -0 1 

. 907 

313, 

5C a 9 

.200 

« 3565-02 

, 2006-01 

• 255 

. 475E-C2 

,2095-01 

• 91’ 7 

12C* 

"J 2 o 3 

, 2 0 u- 

• 35 75-02 

o 206 £■-£.' 1 

.261 

u 4 7 9E-C2 

• 211C—CI 

*90? 

330* 

5 4.0 

.203 

,3615-02 

' * 2006-01 

.246 

, 40 6E-0H 

. 209E-01 

1*57 

339, 

C » 5* 

^ ^ 0 O' 

.205 

.3546-02 

.2005-01 

.236 

, 474E-02 

•2G7S-01 

.90? 

3-. 9. 

57.1 

.199 

.3575-02 

•1996—01 

.2 39 

,4745-02 

,2085-01 

« 90 7 

3 5 v , 

56. 2 

.196 

. 3'61 e-02 

• 2G3E-C1 

.2 37 

. 469E-02 

, 2C 5 E— 01 

.907 

366* 

5 9*3 

.195 

,3608-02 

.2026 •‘■01 

,261 

,4028-02 

o 2 1 3E-01 

t V,7 

57 2, 

c 0 . 3 

.193 

.3 6s £-02 

, 203 E— 01 

.249 

•4735-02 

,210 £>01 

* 90? 

379, 

oQ.tJ 

.162 

. 3535-02 

.2005-01 

• 208 

.4645-02 

* 208 E-01 

1,57 

382# 

47,2 

.167 

. 340E— 02 

. 199E-01 

.179 

, 4 2 9 £ «• 0 2 

,2105-01 

1.5? 

• 743 E-04 

47.7 

.191 

.343 E-02 

,2016-0 l 

• 211 

.4305-02 

,217E-01 

.907 

. 8075-04 

4 6.7 

.162 

« 3415—02 

« 199E—01 

.139 

•423E-02 

.20 B 5— 0 1 

.907 

£ 

49.3 

.176 

o 3 4 1 5 —02 

• 2 COG— Cl 

• 216 

u 43 It -02 

, 2 1 3E—01 

,907 

. 7 16C-0 4 

50.9 

.177 

* 3435-02 

.2006-01 

.210 

o 423E-02 

,2095-01 

,90? 

L 

52.3 

.177 

o 3 4 25-02 

,2005-01 

• 216 

• 4265-02 

•211E-01 

.907 

.1435-03 

54.0 

*166 

, 3426-02 

*2005-01 

.175 

.426E—G2 

• 2095-01 

,5595-06 

. 131E-02 

55*5 

.163 

•240E-G2 

. 2005-01 

.186 

.42XE-02 

•* 20 7 £-01 

• 907 ' 

•1355-03 

57.1 

.17 5 

. 3 41 E-02 

,1993-01 

.169 

C 422E-S2 

.2035-01 

,907 

1 

53.2 

.174 

. • 34 68— 02 

. 202E—01 

1 166 

■ o 4 17E-02 

,2055-01 

a 907 

•226E-03 

59.3 

*171 

• 3 4 6 E —0 2 

. 2025-01 

,216 

.4305—02 

,2135-01 

.907 

• 200 c— 03 

60.3 

.168 

.3505-02 

.2035-01 

.202 

« 419E-C2 

* 2 10 £-01 

.907 

* 1A3£-1> 

60.6 

*166 

.3416-02 

o 200E-G1 

. 17 5 

*4265-02 

. 203 c-01 

1.57 

, 2G:i E—y 3 


Table 3.22 


Error Stastistics vs E gc , OPTRVR, 5th Lobe, C3 , tJ ° sc ) tethered to (ir/2,0) 

S/N=30db, p=0.8, 0 =1.5°, NO CONSTRAINTS 

sep 





“• “ 

Q7Y 

FSC ■■■' 

M FA 

'THETA 

THEOOT 

alfar' 



£M£ AH : 

47,3 

a 162 

**o!42E-02 

-« 7618-03 

' *259" ‘ 



47.7 

*952c-QI 

104 E— 02 

-.2008-03 

. .146 



A, 7 

,94IE-0L 

—,1018-02 

-.267E-03 

« 146 



49* 8 

o939E“0i 

100E-02 

—a 292E-03 

a 146 



50.9 

o9jCc"*0^ 

-.973E-03 

-« 2765-03 

» 146 



52.5 

e 938S-G1 

«'al£0 £“02 

—a 2615-03 

.146 



59.0 

.118 

-a I13E-Q2 

— ,2438-03 

,173 



55 o 5 

o 939E-01 

— a 994E-03 

—a 2605— 03 

o!46 



5?o 1 

a 94 9 0-01 

<*»iQ4E~G2 

-«268£“03 

,146 



56.2 

.945E-0L 

“o 1028-02 

", 2728-03 

,145 

“ — — **“ 


59.3 

.9375-01 

-*9925-03 

— o295£—03 

,146 



60. 2 

.941S-01 

-.1015-02 

-o 28GE— 03 

a 146 



6G. S 

, 7495-01 

~*922E-03 

-a 1245-03 

,113 


ERMSs 

97.3 

e 23 2 

o3695“02 

•199E-01 

o 314 



97.7 

,213 

,3595-02 

a £015-01 

o257 

■ ■ " ■“ ‘ ■ - 

“ 1 ' ' 

96.7 

,235 

* 3368-02 

« I99E-01 

« 239 



99.3 

,201 

a 35 65-02 

a 2005-01 

o260 

' 


50.9 

.200 

,3568-02 

,2005-01 

,255 



5 2.5 

,200 

, 357E-02 

a 2005-01 

,261 



59*0 

.203 

,3615-02 

a 200E-01 

,246 

VO 


55.i 5 

a 205 

,3545-02 

o200c-01 

« 225 

cn — •" - 


57.1 

a 199 

.357E-02 

a 1998"01 

, 239 



56.2 

.193 

a 2 615-02 

,2038-01 

a 2 3 ? 


" “ 

59,3 
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tethered- to -(tt/ 2 , 0 ) 


Figures 3.12 thru 3.23 present a study of the interference acqui- 
sition capabilities of the interference trackers in the OPTRVR and 
SUBOPT- designs. The 4 top traces on each figure are error time 
histories repectively (from the top) of the a, 8, a_ and 8_ estimate 
components; the bottom tract shows when the step of interference (p=0.8) 
occurs and simultaneously when the interference tracker estimate-vector 
elements are released from the idler values (equations 3.15 .thru 3.19 
above). The direct path pulse is being tracked from time zero. All 
plots have the same time-axis scaling. 

Figures 3.11 thru 3.20 for the OPTRVR design (with constraints) 
show the following: 

1. Successful pull-in for small scalloping rates and separation 
angles as small as the following: 


a. 

8 = 0.25° @ -S/N = 40 db 

sep 

(Figure 3.12) 

b. 

9 = 0.5° @ S/N = 20 db 

sep 

(Figure 3.16) 

c. 

0 = 1° @ S/N = 14 db 

sep 

(Figure 3.19) 


2. Successful pull-in for small scalloping rates and separation 
angles probably extending nearly to the window edge (4°). 

3. Successful pull-in @ S/N 40 db, 0 = 1° and F in the 5th 

SGp S C 

lobe (Figure 3.20). The exact F gc (51.3 Hz) and initial p 
(-168°) were selected to produce, in the middle of the run, a 
maximum enhancement of the TO pulse and a maximum cancellation 
of the FRO pulse. 

Figures 3.21 thru 3.23 for the SUBOPT design show the following: 

1. Results for 0 =0.5° and F = 0.6 Hz (low): 

sep sc 
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SIM. JOS’ HUGHDLO FILE NO: 512211U301 DATE: 04/03/79 

PLOT JOB’- HUGH0S1 PROGRAM: RCQMP1 DRTE’- 04/04/79 



TIME SINCE STRRT OF FIRST SCAN (SECONDS) 


SCENARIO- ACQ5ITN3, PMLS1, SMLS= 1.0 DEG, DELT= .0740741 SEC, KM=100, KSTART= 2G 
S/N= 40.0 DB, RHO-- .8,. BETR= 45.0 DEG, FSC=, .600 HZ, THESEP- .250 OEG 
RECEIVER: OPTIML, RDHPTIV, UNTETHRD, P0PT1, BRCVR= 1.0 DEG 

INTERFERENCE TRACKER IDLER VALUES’ .5, L.5 DEG, 0.0 DEC/SEC, 90.0 DEG, 0.0 HZ 
3ETR ESTIMATE ERROR: INITIAL- -45.0 ,FINAL= -.390 DEG 

FSC ESTIMATE ERROR: INITIRL= .£00 ,FINflL= .241E-01HZ 

Figure 3.12 Interference Acquisition, OPTRVR, S/N=30db, p=0.8, 

9 =0.25°, 8=45°, F =0. 6Hz 

sep * sc 
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FILE NO: 512211U302 


DATE: 011/03/79 


SIN. JOB: HUGH0S1 

PLOT JOB: HUGH034 PROGRAM: ACQMP1 DATE: 04/05/79 



^.00 0.80 i.so 2I40 3I20 ilToo 4‘ao sIgo gIro 7T20 iloo 

TINE SINCE START OF FIRST SCAN (SECONDS! 


SCENARIO: RCQSITN3, PHLS1, BMLS-l.O DEC, DELT= .0740741 SEC, KM=10G, KSTART= 2G 
S/N= 40.0 OB, RHO= .8, BETR= 45.0 DEC,FSC=, .GOO HZ, THESEP= 2.000 DEG 
RECEIVER: OPTIML. RDAPTIV . UNTETNRD, P0PT1, BRCVR= i.O DEC 

INTERFERENCE TRACKER IDLER VALUES: .5, 1.5 DEG, 0.0 DEC/SEC. SQ.D DEG, 0.0 HZ 

BETR ESTIHRTE ERROR: INITIRL= -45.0 ,FINAL= 5.G1 DEC 

FSC ESTIHRTE ERROR: INITIRL= .GOO ,FINRL= -.118 HZ 


Figure 3.13 Interference Acquisition, OPTRVR, S/N=40db, p=0.8 

0 = 2°, 6=45°, F =0 . 6Hz 

sep ’ * sc 
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SIH. JOS: HOODIE FILE NO: 512211U303 DATE: 04/03/73 

PLOT JOB: HUGH034 PROGRRM: RCQMP1 ' DRTE: 04/05/73 



SCENARIO: RCQSITN3, PMLS1. BMLS= 1.0 DEC, OELT= .0740741 SEC, KM=100, KSTART= 2G 

S/N= 40.0 DB- RHO= .8, BETA= 45.0 DEC.FSC=, .GOO HZ, THESEP= 3.000 DEC 
RECEIVER: OPTIHL, flORPTIV, UNTETHRD, P0PT1, BRCVR= 1.0 DEC 

INTERFERENCE TRACKER IDLER VALUES: .5, 1.5 DEC, 0.0 DEC/SEC, 30.0 DEC, 0.0 HZ 

BETA ESTIMATE ERROR: INITIAL= -45.0 .FINAL--- 2.47 DEC 

FSC ESTIMATE ERROR: INITIAL^ .GOO ,FINRL= .34GE-01HZ 

Figure 3.14 Interference Acquisition, OPTRVR, S/N=40db, p=0.8 

0 =3°, 8=45°, F =0. 6Hz 

sep sc 


100 



SIM. JOB: HUGH0U1 


FILE NO: 512211U307 


DATE: 04/03/73 


PLOT JOB: HUCH0H1 PROGRAM: RC0MP1 DRTE: 04/05/73 


tn 



J.4U 1.UU I.OU O.bU 

TIME SINCE START OF FIRST SCAN (SECONDS) 


SCENARIO: AC0SITN3, PMLS1, BMLS= i.O DEG. DELT= .074074L SEC. KM=100, KSTART- 2G 

S/N= 40.0 DB. RHO= .8, BETA= 45.0 DEG,FSC=, 2.500 HZ, THESEP= 2.000 DEG 
RECEIVER: OPTIML, AOAPTIV, UNTETHRD, P0PT1, BRCVR= 1.0 DEG 

INTERFERENCE TRACKER IDLER VALLES: .5, 1.5 DEG, 0.0 DEG/SEC, 30.0 DEG, 0.0 HZ 

BETA ESTIMATE ERROR: INITIAL^ -45.0 ,FINAL= 4.97 DEG 

FSC ESTIMATE ERROR: INITIAL^ 2.50 ,FINRL= .203 HZ 


Figure 3.15 Interference Acquisition, OPTRVR, S/N=40db, p=0.8, 

0 =2°, 8=45°, F =2. 5Hz 

sep sc 
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SCENARIO: ACQSITN3, PMLSi, BMLS= 1.0 DEC, DELT= .0740741 SEC, KM=100, KSTRRT= 26 

S/N= 20.0 OB, RHQ= .8, BETR= 45.0 DEC,FSC=, .GOO HZ, THES£P= .500 DEC 
RECEIVER: OPTIHL, RDAPTIV, UNTETHRD, P0PT1, BRCVR^ i.O DEC 

INTERFERENCE TRACKER IDLER VALUES: .5, 1.5 DEC, 0.0 OEC/SEC, SO.O DEC, 0.0 HZ 

BETA ESTIMATE ERROR: INITIAL= -45.0 ,FINAL= -2.S8 DEC 

FSC ESTIMATE ERROR: INITIAL= .600 ,FINAL= .124 HZ 


Figure 3.16 Interference Acquisition, OPTRVR,. S/N=20db, p=0.8 3 

6 =0.5°, 6=45°, F =0. 6Hz 

sep ’ sc 
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^Too o!80 l! SO 2luQ 3! 20 4! 00 4! BO iTsO 6^40 7I2O a! 00 

TIME SINCE STRRT OF FIRST SCRN (SECONDS) 


SCENARIO: RCQSITN3, PMLSi, BMLS= 1.0 DEC, DELT= .0740741 SEC, CN-100, KSTART= 2S 

S/N= 20.0 OB. RHO= .8, BETR= 45.0 DEC.FSC^, .GOO HZ, THESEP= 3.000 DEC 
RECEIVER: OPTIML, RDRPTIV, UNTETHRD, P0PT1, BRCVR= 1.0 DEC 

INTERFERENCE TRRCKER IDLER VRLUES: .5, 1.5 DEC, LLO DEC/SEC. 90.0 DEC, 0.0 HZ 

BETR ESTIMATE ERROR: INITIRL- -45.0 ,FINRL= G.88 DEC 

FSC ESTIMRTE ERROR: INITIRL= .GOO ,FINRL= .174 HZ 


Figure 3.17 


Interference Acquisition, 
9 S ep =3 °’ g=45 °’ ^ sc =0-6Hz 


OPTRVR, S/N=20db , p=0.8'. 
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FILE NO: 512211U308 


DRT£: C4/03/73 


SIH. JOB: HUCHOVC 

PLOT JOB: HUCH0H1 PRGCRRH: RCQMP1 ORTE: 04/05/73 


frj 

O) 



tC.W 4.UU ‘i.OU O.bU. 

TIME SINCE START OF FIRST SCAN (SECONDS) 


■SCENRRIO: RCQSITN3, PMLSi, BMLS= 1.0 DEC, 0ELT= .0740741 SEC, KM=100, KSTART= 26 

S/N= 20.0 DB, RHG= .8, BETR= 45.0 DEC,FSC=, 2.500 HZ, TH£SEP= .500 DEC ' 
RECEIVER: OPTIHL, RDRPTIV, UNTETHRD,. P0PT1, BRCVR= 1.0 DEC 

INTERFERENCE TRACKER IDLER VALUES: .5, 1.5 DEC. 0.0 DEC/SEC, 30.0 DEC, 0.0 HZ 

BETR ESTIMATE ERROR: INITIAL= -45.0 ,FINAL= -10.4 DEC 

FSC ESTIMATE ERROR: INITIAL= 2.50 ,FINRL= -.257 HZ 


Figure 3.18 Interference Acquisition, OPTRVR, S/N=20db, p=0.8, 

=0.5°, 8=45 , F =2.5Hz 
sep sc 


104 


Q.QO 


l.GQ 


T ).00 


2.na 3 ! 20 I! loo iTTio 5 ! GO sluo 7 ! 20 

TIME SINCE START OF FIRST SCAN (SECONDS) 


SCENARIO: RCQSITN3, PHIS’, BMLS= 1.0 DEC, DELT= .07407m SEC, KM=100, KSTRRT= 2G 

S/N= 14.0 D8, RHO= .8, BETR= 45. 0 DEC,FSC=, .GOO HZ, THESEP= 1.000 DEG 
RECEIVER: OPTIHL, RDRPTIV, UNTETHRD, PQPT1, BRCVR= 1.0 DEC 

INTERFERENCE TRACKER IDLER VALUES: .5, 1.5 DEG, 0.0 DEG/SEC, 90.0 DEG, 0.0 HZ 

BETH ESTIMRTE ERROR: INITIAL- -45.0 ,FINAL= -1.G4 DEG 
FSC ESTIHRTE ERROR: INITIHL= .GOO ,FINRL= -.482E-01HZ 


Figure 3.19 Interference Acquisition, OPTRVR, S/N=14db, p=0.8, 

9 =1°, 8=45°, F =0.6Hz 

sep * sc 


8.00 
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FILE NO: 5I2211U303 


DRTE: 05/02/73 


SIM. JOB: HALENPY 


PLOT JOB: HUGHOSY 


PROGRAM: ACQMP1 


DRTE: 








o 

CO 


gol 

u_ 


^ioo oTaci i!eo 2 ! uo 3 T 20 u!oo uTeo s!go 
TIME SINCE STRRT OF FIRST SCRN (SECONDS) 


g.mo 


7.20 


SCENARIO: ACQSITN3, PM LSI, BMLS= 1.0 DEG. DELT= .071)071)1 SEC, <M=10G, KSTART= 2G 

S/N= 1)0.0 DB, RHQ= .8, BETR=-I68.Q DEG,FSC=, 51.300 HZ, THESEP= 1.000 DEG 
RECEIVER: OPTIML, RDAPTIV, UNTETHRD, PQPT1, BRCVR= 1.0 DEG 

INTERFERENCE TRACKER IDLER VALUES: .5, 1.5 DEG, 0.0 DEG/SEC, 30.0 DEG, 0.0 HZ 

BETA ESTIMATE ERROR: INITIRL= 78.0 ,FINRL= 5.11 DEG 

FSC ESTIMATE ERROR: INITIAL^ 51.3 .FINALS 50. S HZ 


Figure 3.20 Interference Acquisition, OPTRVR, S/N=40db, p=0. 

0„ =1°, 8= - 168°, F =51. 3Hz 

Sep ’ ’sc 


05/02/73 


8.00 
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SIM. JOB: HALENI5 
PLOT JOB: HUGHOK.U 



TIME SINCE STRRT OF FIRST SCAN CSECONDS) 


SCENBRIO: ACQSITN3, PMLS1, BMLS= 1.0 DEC. CELT- .0740741 SEC. KM=100, KSTRRT= 25 

S/N= 40.0 DB. RHO= .8. BETA= 45.0 DEC,FSC=. .500 HZ. THESEP= .500 DEC 
RECEIVER: SUBOPT. ADAPTIV, UNTETHRD. PG°T1. BRCVR= 1.0 DEC 


Figure 3.21 Interference Acquisition, SUBOPT, S/N=40db, p=0.8, 

0 =0.5°, 8-45 ,F =0. 6Hz 

sep sc 


FILE NO: 513211U301 DATE: 05/03/73 

PROGRAM: RCQMP1 DATE: 05/03/73 
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SCENARIO: RC3SITN3, D MLSi, BMLS= 1.0 DEG, DELT= .071107(11 SEC, KM=100, KSTHRT= 26 

RR0= - 8 ' BEIfl= (15.0 DEC.FSC-, .600 HZ, THES£P= .500 DEG 
RECEIVER: SUBOPT, RDRPTIV, UNTETHRD, P0PT1, BRCVR= 1,0 DEG 


Figure 3.22 


Interference Acquisition, SUBOPT, S/N=20db, p=0.8, 

= °- 5 °> B=^5°, F = 0.-6 Hz 
sep sc 
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c &: 


SCENRRIQ: 

S/N= 

RECEIVER: 


Figure 


0.80 1.G0 2.40 3.20 4.00 4l ao 5 ! SO G. 40 7^20 

TIME SINCE STRRT OF FIRST SCRN (SECONDS) 


RCQSITN3, PMLS1, BMLS= 1.0 DEC, DELT= .0740741 SEC, KM=10D, K5TRRT= 2G 
40.0 OB, RHQ= .8, BETR=-1G8.0 DEG,FSC=, 51.300 HZ, THESEP= 1.000 DEG 
SUBOPT, RBRPTIV, UNTETHRD, P0PT1, BRCVR= 1.0 DEG 

3.23 Interference Acquisition, SUBOPT, S/N=40db, p=0.8, 

6 = 1 °, 8 = - 1680, 51.3 Hz 

sep 


8.00 
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a. S/N = 40 db — unsuccessful pull-in, in fact loss of 
track of the direct path pulse (Figure 3.21); 

b. S/N = 20 db — successful pull-in (Figure 3.22); 

2. Successful pull-in @ S/N = 40 db, 6 =1° and F in the 5th 

sep sc 

lobe, again maximum enhancement of TO pulse, maximum cancel- 
lation of FRO pulse (Figure 3.23). 

The poor performance shown in Figure 3.21 is probably attributable to 
the low scalloping rate, the successful pull-in of Figure 3.22 notwith- 
standing. The SUBOPT design is essentially premised upon on arbitrarily 
high scalloping rate, and under these circumstances the results of 
Figure 3.21 are probably more to be expected that those of Figure 3.22. 
The successful pull-in of Figures 3.22 is probably only a testament to 
the beneficial effects of noise acting as dither; or worse, it may be 
sample function dependent. More study here should be done. 

Finally, Figures 3.24 and 3.25 provide comparisons of the three 
receivers OPTRVR, SUBOPT and the threshold receiver, in a crossing 
multipath scenario, beginning with the receivers in track and the inter- 
ference initially out-of-beam. The same noise sample function was used 

« 

to construct the envelope signal applied to the receiver in each case, 
and the error time histories are all plotted to the same scale. Two 
significant differences in the figures, one intentional, one not, are, 
as follows: 

1. In Figure 3.24, the OPTRVR and SUBOPT designs include con- 
straints, in Figure 3.25 these are without constraints. 

2. In the two figures that OPTRVR and SUBOPT error time history 
traces are interposed; in Figures 3.24, that for OPTRVR is on 
top; in Figure 3.25, that for SUBOPT is on top. 
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SIM. JOB: HRLENIR 
HRLENIU 
HALENJ5 
PLOT JOB: CRPL0LH 


FILE NO: 112211UI01 
113211U101 

liiiiouioi 
PROGRAM: PCRMP1 


DRTE: 05/03/79 

05/03/79 
05/03/79 
DRTE: 05/03/79 


C' 



Cv 



— t 
N 



O 

O 



-i.07 -I si o!cs o!si 
SEPARATION ANGLE CDEG. ) 


-2.75 -2.19 -1.S3 


1.17 


1.73 


2l23 ?. 85 


S/N= 20.0 DB, RH0= .80. BETfl=-ie8.0 DEG, FSC= 51.3 HZ, KM= 100 SCANS, BMLS= 1.00, PMLSi 

0PTIML: ADRPTIV, UNTETHRD, P0PT1, BRCVR=1.00 DEC-., ERMS= .690944E-0i DEG. 

SUBOPT: ADRPTIV, UNTETHRD, P0PT1, BRCVR=i. 00 DEG. , ERMS= . 13G5G0E-O1 DEG. 

THRHLD: -3 DB , UNTETHRD, G.OOk OF SCANS RBORTED, ERMS= . 243510 DEG. 

Figure 3.24 Crossing Multipath, OPTRVR and SUBOPT with constraints 

S/N=20db, p=0. 8, S= - 168, F = 51.3 Hz 

sc 
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-2. 75 -27l3 -1.63 -1.07 ^51 005 0.61 1117 lT73 2.29 2. 85 

SEPARATION ANGLE (DEG. 3 


S/N= 20.0 05. RHQ~ .00. BETfl=-168.0 DEG. FSC= 51.3 HZ. KM= 100 SCRNS, BMLS= 1.00. PHLS1 

SUBOPT: RDRPTIV, UNTETHRD, P0PT1. BRCVR=1.00 DEG.. ERMS= .13G560E-01 DEG. 

OPTIHL: RDRPTIV, UNTETHRD. P0PT1, 3RCVR=1.00 DEG. , ERMS= .755801E-02 DEG. 

FHRHLD: -3 DB , .UNTETHRD, G.OO* OF SCRNS ABORTED. ERMS= .243510 DEG. 

Figure 3.25 Crossing Multipath, OPTRVR and SUBOPT without constraints 

S/N=20db , p=0. 8, 8= - 168°, F =51.3 Hz 

s c 
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Another very significant difference is in the OPTRVR error time 
histories themselves — that without constraints peaks at about 1/50°, 
and that with constraints, at about , worse than the SUBOPT response, 
which peaks at about 1/20° with and without constraints. Again, we 
suspect the uj gc constraint for the deterioration of the OPTRVR perfor- 
mance. Nevertheless, all optimal structure receivers performed better 
in this demonstration than did the threshold receiver, which peaked at 

0.71°. The lowest trace shows the carrier signal-to-noise ratio CSNR, 
evaluated at the peak of the direct path pulse on the TO-scan, as the 
simulation evolves. The F used here is in the 5th lobe, the exact B, 
F gc > values used being again that combination producing maximum enhance- 
ment of the TO-pulse and maximum cancellation of the FRO-pulse at 
crossover. 

In summary, a simulation study involving principally statistical 
error studies but also some error time histories has been carried out; a 
substantial collection of FORTRAN programs was developed. Simulation 
results show for the OPTRVR design 

1. RUSE performance improvement factors wrt the threshold 
receiver sometimes approaching 30 at 20 db S/N; 

2. Full track capability limited to scalloping rates below \ of 
rep. rate (below 6.75 Hz in AZ). 

3. Some deterioration in performance when constraints are used 

believed attributable to the ui constraint. Removal of this 

sc 

one constraint may restore the generally higher RUSE perfor- 
mance of the unconstrained OPTRVR without reducing the resis- 
tance to loss of track apparently characterizing the con- 
strained receiver (see SUBOPT below) . Also perhaps a depend- 
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able angle- tracking capability at higher scalloping rates 


might result from removal of the uj -constraint. 

sc 

The results show for the SUBOPT design 

1. Lesser performance than the OP.TRVR design, improvement factors 
wrt the threshold receiver sometimes approaching. 15 at 20 db 
S/N; 

2. Performance probably better at higher scalloping rates, de- 
teriorating at lower rates; 

3. Very definite improvement in track-holding ability at small 

separation angles when the receiver constraints are applied. 

There is no U) -estiamte, hence no ul -constraint in the 
sc sc 

SUBOPT design. 

Based on studies of the OPTRVR, we expect both the OPTRVR and SUBOPT 
design performance to be quite sensitive to error, in the receiver 
model, of the transmitting antenna, selectivity function, particularly 
the beam width parameter. Possible approaches to reduce the effects on 
performance were discussed. Finally, in error time history studies 

1. Strong interference pull-in capabilities at various S/N's and 

F ' s were demonstrated, which might be used in an inter- 
s c 

ference acquisition scheme; and 

2. A high performance in a representative crossing multipath 

situation was demonstrated, and is to be generally expected, 

particularly if the removal of the ui -constraint will have 

sc 

the effects expected and discussed. 
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SECTION IV 


EXPERIMENTAL SYSTEM CONSIDERATIONS 

An experimental receiver development project was included in the 
original research proposal and begun in 1976 in parallel with tracking 
algorithm development then in progress. The project was short-lived, 
however, and abandoned the following year, principally because the 

computational demands of the evolving tracking algorithms simply could 
not be met with any economically feasible microcomputer that was avail- 
able at the time. The general design philosophy and the allocation of 
tasks among 

1 . the interface hardware 

2. the foreground software 

3. the background software 

were described in [3, pp. 52-60]; the approach to the interface design, 
involving specifically a state controller, is conveyed in Appendix B of 
this final report. 

At the present time, both the MLS tracking algorithm development 
and the state-of-the-art in microcomputing are more advanced. It seems 
safe to conjecture, in conclusion, that one way the requisite computer 
power might be obtained economically, certainly in the near future, is 
to make use of a bank, or an array, of now diminishingly expensive 
microprocessors. One or more microprocessors might serve the executive 
function,, allocating the resources provided by the others to the various 
computational needs as they arise. Advantages of such an arrangement 
might be, as follows: 
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1 . 


It would be able to exploit the large potential .for parallel 
computation in the tracking receiver calculations ; 

2. It would have high protection against total system failure due 
to isolated failures; 

3. It would easily accomodate the randomized repetition rates in 
the MLS. 
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SECTION V 


SUMMARY AND CONCLUSIONS 


This report has described research performed at the University and 
concerned with optimal MLS receiver theory, design and simulation 
evaluation. The program has produced a general receiver structure 
which, it is believed, gives close to limiting performance; it consists 
of a Scan Data Processor (SDP) based on the theory of Locally Optimum 
Estimation enclosed in a Tracking Loop Filter (TLF) based on MMSE re- 
cursive state estimation. Three concrete specializations of the general 
structure were carried out, characterized by both the dimension of the 
Scan Data Processor and the method of extraction of phase difference (p) 

and scalloping frequency (to ) information, as follows: 

s c 

5D SDP : Denoted the Optimal design (OPTRVR) ; SDP extracts p 

information from each scan; TLF extracts U) information 
from the sequence of scans; 

4D SDP : Denoted the Suboptimal design (SUBOPT) ; Both p and u) 

are suppressed from the model and not estimated, 


sc 


6D SDP : Denoted the 6D LOE design; SDP extracts P and infor- 


mation from each scan; TLF may optionally extract U) 
information. 


sc 


Two of these, the OPTRVR and SUBOPT designs were studied extensively in 
simulation studies, including: 

a. Statistical error studies under various conditions; 

b. Studies of interference acquisition capability using 
"pull-in", 
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c. Performance evaluations with "crossing" multipath inter- 
ference. 

and comparisons of performances were made with a simulated "threshold" 
receiver approximately representative of the Phase III design. Finally, 
a limited effort to implement an experimental receiver was undertaken, 
hut was aborted with little more result than the tentative approach 
planned and the insights gained. 

In the simulation studies of RMSE the OPTRVR and SUBOPT designs 
showed improvements over the threshold receiver by factors approaching 
30 and 15, respectively, at low scalloping rates. Constraints were 
imposed on the computed estimates, based largely on natural limitations 
on the true state values, and as a result, improved ability to maintain 
track was noted in the SUBOPT design at small separation angles and 
moderate S/N. At higher values of scalloping rate, uj , the SUBOPT 
design was superior to the OPTRVR with constraints. The data suggests, 
however, that the ^ sc “ constraint in OPTRVR may be hurting performance 
some, though even with its removal, successful full-state tracking can't 
be expected in OPTRVR in the strict sense- at higher scalloping fre- 
quencies. A high sensitivity to error in the receiver model of the MLS 
transmitting antenna selectivity function, particularly the beam width 
parameter, was observed in the SUBOPT design (and believed to be charac- 
teristic of the OPTRVR design also) . Approaches were- discussed to 
reduce this problem. Both the OPTRVR and SUBOPT designs exhibited 
sufficient multipath "pull-in" capability to merit a "pull-in" approach 
to interference acquisition. In summary, the receiver designs developed 
in this research have demonstrated in simulation superior levels of. 
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performance for MIS receivers. Some areas of consideration need further 
study, however, to fine-tune the designs to the signal and state dy- 
namics environment and other aspects of the application. On the basis 
of available data the SUBOPT design appears to be the more appropriate 
for the MLS aircraft receiver application, where the scalloping- rates 
experienced are generally greater than one-half the MLS angle function 
repetition rate, and thus beyond the full- track capability of the OPTRVR 
design. 

From the viewpoint of implementation, it would appear that, on the 
basis of trends in the microprocessor art, 

1. Input of the envelope samples to the computer should be made 
by direct memory access (DMA) , and 

2. The comptuer should, perhaps, be a bank of microprocessors 
performing many operations in parallel (to supply the requi- 
site computing power) and operating as a unified system under 
an executive function microprocessor. 

Finally, an operational receiver should probably be structurally 
adaptive also with an ability to expand the state vector (by appending a 
"sentry" tracker channel tethered to "idler" values) as additional 
interference pulses are recognized and acquired. The "sentry" should 
move from a position one side of the sampling window to the opposite 
side and then back on alternate scans to preserve the integrity of the 
main pulse track. Also when the separation angle for an interference 
pulse drops below a certain threshold and information needed to dis- 
tinguish the pulse becomes less available, track of that interference 
pulse should then be dropped and the state dimension suitably decre- 


mented . 
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APPENDIX A 


COMPUTER PROGRAMS 

Programs in this appendix are listed below in the order presented, 
generally alphabetized by Module name in two groups . Programs within 
each Module are listed with a brief characterization of the Module. 
Programs for the '6D LOE design are given in Appendix C. 

SIMULATION PROGRAMS 


CTLACQN3 : 

CTLCRMP: 

CTLMSBB1: 

CTLMSFSl: 

CTLMSFS2: 

CTLMSTH2: 

GTLOE : 

MLS SIM: 

OPTRNC: 

OPTRVR: 

PLSUB: 

PLOPT: 

PMLS1: 

P0PT1: 

THDRVR: 


CONTRL, Interference Acquisition Scenario 

CONTRL, Crossing Multipath Scenario 

CONTRL, RMSE (B . ) 
ratio 

CONTRL, RMSE (P ) 

SC 

CONTRL, RMSE (F ), (3, m ) tethered to 0/2,0) 

SO so 

CONTRL, RMSE (6 ) , averaging with F^/0 

CONTRL, RMSE (® se p) > averaging with F gc =0 

MLSSIM, MLSSUB, THA, DFLTR1 , MLS 

RCVR, ORVRID, No constraints, except on 3 

RCVR, ORVRID, with constraints 

PHILM, WAWBJ, SWFCNS, PLUSID, Subop timal SDP 

PHILM, PLOPID, Optimal SDP 

PMLS, PMLSID, p-f unction used in generating signal 
P, PDOT , POPTID, p-f unction presumed in receiver 
RCVR, TRVRID, threshold receiver 


UTILITY AND SERVICE PROGRAMS 

ACQMP1: ACQMP1, Acquisition plot generator 

LABLIB: CLIP, GAUSS, INTIO, L0G10, MATIN, MATMUL, MATOUT, MATSM, 

MULPLT, PLOTR, PVALUE, REALIO, RETURN, SATU, library 
of utility routines 

PCRMP1: PCRMP1, Crossing multipath plot generator 

RLOGSW: RLOGSW, Reads and' lists out SWAJ, SWBJ,‘& RABJ data 

from file 

WLOGSW: WLOGSW, WAWB, WAVGS, computes SWAJ, SWBJ, & RABJ data 

and writes files 
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SUBROUTINE "CONTRL 1 7B/172 "TS 


‘ FTN <..6+452 


05/17/79” 17.25.29 


PAGE 


1 


5 


10 


15 


20 


25 


’30 


35 


40 


45 


50 


55 


SUBROUTINE CONTRL(ISW) 

C ' • 

C THIS CONDUCTS THE MLS SIMULATION THROUGH A 
C CROSSING MULTIPATH SCENARIO 
C 

REAL LAMOA" • 

INTEGER XNAME(2),YNAME<2)>DATIN<4>,DAT0UTt4),D0UT 

INTEGER YNAMK 2 ) > YNAM2 ( 2 ) > YNAM3 ( 2 ) * YNAM4 (2 )* YN AM5 ( 2 )> FUNCTN (2 ) 

INTtGbR YNAM7 (2 )> YNAMB ( 2) 

LOGICAL NOKLMN» NOLOE> NOAC > K ALMAN> LOE> T ETHRD# MORE. NFI RS T> AOAPTV 
LOGICAL F1L0UT> FILEIN 

COMMON/IDOATA/ISIM,IPMLS,IRCVR;IADAP,ITETHR>IPOPT - • 

C ONMCN/RC VROO/ THAM AY. THAMIN/ TS/TR, OMEGA #TF 
CDMKQN/RCVRC1/NGMIN>NGMAX>DELBL>NGM>IR>IAE 
COMMON /RCVR02/RHQMAX>DTH0> TDRO> B0> WSC 0> NS 0 (4 ) > NGO < 4) 
CQMM0N/RCVRO3/PI>F(6>6)>FL25(4)»FSAMP>K> KM> TETHRD>NG>NS>JM ' 
CUMM0N/RCVRC4/0ELT>E0(8)>6OGT{8>8)»H(5>8I>IC0UNT>SIGMA 
"COMMON/RC VRC5/NOLOE>NOKLMN»NOAC> G AMAES <5)>R0IAG(5)>PMDIAG16)" 
COMKON/RCVR06/PP0IAG(6),RMAT<5>S),PHI<5>5)>PA(8>B>,LAMDA<5) 

• C0MH0N/RCVR07/T (130)>V(13G) 

COMMON/RCYR08/XSLOE(8),£SLOE(8),ES(8) 

C0MM0N/RCVR09/BRCVR>8B>P0CRIT,CC ' ... 

COMMON /RCVRX0/XS1 tS }>XS (8) 

" COMMON/ HLSUOO/ALFA>THE>THEDQT>ALFAR>THR>THR DO T>B*VSC 

COMMON /M LS 001/CS NR T.C SNR F.DSKROB. RHO> BETA>FSC> LGMAX 

CDMH0N/HLSOO2/0CSNR>CSNR,LG>TPKT>TPKF 

CUMMUN/MLSU03/FL10A£<4»2)>FL10(4)>DELTAT(2)>XO(8>2)/Y0<4>2) 

' ” COMMON/ MLSU04/BMLS>BBB>MTIMES>MSET>MOR£ .... 

DIMENSION I0NRS<6)>IDASCI<24)> IOENTS ( 6 > > RMS VAL (8) 
■D I MENSI0N"EALFA( 100 ),E TH £T(lQ 0 )/EALFR(100l»E TH ER(I00).XF0URtl00) 
DIMENSION X(8), SCANNR(IOO) 

- DIMENSION‘EBETA{100)»EFSC(100) — ' " 

EQUIVALENCE ( AL FA, X ( 1 )) > < IS IM> IDNRS t 1 ) ) * ( OOUT# D ATOUT (2)1 

• ‘ 'DATA ABORT/1 HA /.SPACE/1H /> NFIRST/ .FALSE ./> ADAPTV/ .TRU E./ 

DATA DAriN/lOHMLSSI MDATA/10H50 GOOD FOOO >2*0/ 

DATA'DATOUT/10HMLSSIMDATA>3 + 0/ ‘ " 

DATA IDASCI/7HCR0SSMP>7HRMSE IT)>7HRMSE(B)>7HRHSE(F).7HAC0SITN> 

■ +3+7H” •“ >7HGENERAL> 8H PHLS1‘ >8H PMLS2 , 

♦ 8H PMLS3 > BH THRHLD >8H OPTIML >8H SUBDPT >8H -3 DB >8HADAPTIV > 
" - +8HN0NADAP > 8HUNTETHR0/ 8HTETHERED. 2H >8H P0PT1 > 8H P0PT2 ,‘ 

+SH P0PT3 / 

DATA "NS TART /3/> IRSIGN/l/. KSTART/26/A F ILOUT/ . F ALS E . / >" ‘ 

CFILEIN/. FALSE./ 

~ DATA FUNCTN/7HAZIMUTK>7HELEVAT./ 

DATA XNAME/8H SCAN >8H NUMBER /»YNAM2/8H ETHET >8H0EGREES / 

' ■ DATA YNAM1/8H EALFA ,6H / > YNAM3/8H EALFAR ,8H / 

DATA YNAM4/8H ETHER > 8 HDEGREE S />YNAM5/8H RHO ,8H / 

"“"DATA YNAM7/8HEABSBETA>8H DEGREES/" 1 " — 

DATA YNAH8/8HEABSFSC >8H HERTZ / 


GO TO ( 100>200> 300»400> 500> 600> 700> 800> 900> 1000> 1100> 1200 ) > ISV 
1 FORM AT ( 1H ) - 

10 FORMAT ( 9 ( / ) ) 

ir 1 'format <iHir • — 

C 

c **+********+***+***+******** ****************** *********** ************ 

c 
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60 


o5 


70 


75 


60 


■ 85 


90 


95 


100 


105" 


110 


ICO CONTINUE 

C THIS 10ENTIHES THE SCENARIO ANO REINITIALIZES/ AS NECESSARY/ 
CT HE FOLLOWING RECEIVER PARAMETERS 
CSIGMA/IAO/DSNRDB/RHO/FSC/BETA/ JM/BMLS 
I HNFIRST ) GO TO 155 

~NOAC*. FALSE. " ' ‘ "• 

NF IRST *. TRUE. 

' JBNAH-JOBNAME (I )~ 

ISIM«5 

IMOD ■ 3 ' ‘ ' 

WRITE (7/1101 

110 FORMAT ( 39H1INT ERFERENCE ACQUIS ITION ' SC ENARI 0/ ) ' " 

IF (1RCVR.NE.1I GO TO 118 
WRITE (7/115! 

lib FURMAT (35H THIS IS NOT FOR THRESHOLD RECEIVER) 

STOP * ABORTED — NOT FOR THDRVRM 
118 CONTINUE 

WRITE (7/1201" (DATINI I )/I»l/ 2} 

120 F ORMAT ( 26H THIS MAY READ INPUT FILE /2A10/1 

CALL L0GI0I6HFILEIN/FILEIH/0) 

IF(.NOT.FILEIN) NSTART-0 

' CALL INTI0(6HNSTART/NST ART/100/0)"" 

NSTUP-NSTART 

CALL INTIQ(6H NS TOP / N STOP/ 100/0 ) ’ ” " 

CALL L0GI0I6HFILDUT/FIL0UT/0! 

' ' CALL LUG I016HTE THRO/ TETHRD/O) 

CALL L0GI0(6HADAPTV/ADAPTV/0) 

' I F ( TETHR D J ‘ ITETHR-2 

IF (ADAPTV) GO TO 135 

' IRSIGN—i * 

IADAP*3 

135 " CONTINUE ‘ 

DO 1A5 1-2/6 

IASC*3*(I-l)4I0NRS(I)+6 " ~ ••• 

IDENTSd I-IOASCK IASC I 
195 “ CONTINUE " ' ...... 

tNCQDE(8/150/I0ENTS(ll) IDASCI t IS I M> / 1 MOD 
’ 150 FORMAT ( A7 / ID 

WRITE (7/152) IONRS/IMOD 

■ 152" FORMAT ( 1 H / 611/ IX/ 1 1/ 1 • • - 

WRITE (7/1531 IOENTS 

" 153 FORMAT (1H /A6) ’ 

CALL RE A L 10 ( 6HRH0MAX/RH0MAX/Q ) 

*" CALL REALI0I6H DTHO/DTHO/O) ' 

CALL REALI0(6H TORO/TORO/O) 

8ETAO«B0*18O,/PI " • •" “ 

FSC0-WSC0A.5/PI 

" CALL' REALIO(£H BETAO’z BETAO/ 0 > . - - . 

CALL REALI0I6H FSCD/FSCO/O) 

B0-BETA0+PI/180. *. ‘ " 

WSC0-FSC0M2. + PI) 

" 155 CONTINUE “ " " - . . . 

IF CFILEIN) GO TO 158 

’ NRUN-0 

05NR0B-2O, 

RHO“ 0 , 5 — " 

BETA-95. 
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115 FSC«0. 

' BMLS-1. 

BRCVR-1. 

THfcStP-l.BB 

CALL INTIQ16H NRUN, NRUN, 100, 0 ) 

‘ 120 CALL RtALI0(6HDSNR0B,DSNRDB,0) ' “ ' — 

CALL RE ALI Cl( 6H RHO,RHO>0) 

CALL RE AL 1 0 [ 6H BETA, BETA, 0) * ** * 

CALL RLAL1CH6H FSC,FSC,0) 

CALL REALI0I6H BliLS, BM LS, 0 ) * ” * 

125 ' CALL REALI016H BRCVR, BRCVR»0) 

CALL RE ALIO{ 6HTHESEP, THESEP ,0) “ 

CALL INTI 0(6HKSTART,KST ART, 100,0) 

■ MORE* .FALSE. ' ' ~ ‘ 

&U TO 170 

'”130 156 " CONTINUE " • * 

REA0115,160) NRUN, QSNRD8,RH0>8ETA, FSC, B HLS, BRCVR, THESE P> KSTART 

100 'FORMAT (.I5,7G10.3,I5)‘ " 

I F (NRUN.LT.NSTART) GO TO 156 

' IF(NRUN.GE.NSTQP) MORE*. FALSE. 

135 ' 170 CONTINUE 

XO(3,IAE)-XO(6,IAE)*0. ! 

X0(5,IAE )*X0(2,IAE)-THESEP 

’ EBETAO-ABStBETA)-ABS(BETAO) 

fcFSCO-ABS(FSC)“ABS( FSCO) 

'140 RETURN — 

C 

C***** + *++***+**+***-***+*******++**+**++*+*+*+***++++*+*+*#*++****+*+* 

C 

2CQ . . C0NTINU£ — • - - - - ■ • 

145 C THIS OUTPUTS BASIC SIMULATION DATA OF INTEREST, SUCH AS 

CTHE' ANGLE FUNCTION, INITIAL STATE, 'ETC. 

WRITE (7,209) 

209 ' FQRMAT(5H1NRUN,4X»6HDSNRDB/7X,3HRH0, 8X,AHBETA»8X,3HFSC»9X, 

CAHBMLS,8X,5HBRCVR,7X,6HTHESEP»6X,6HKSTART) 

■ igo .... WRITE (7,210) NRUN, OS NRD B, RHO, BETA, FS C, 8 MLS , BRC VR, THESEP, KSTART ’ 

210 FORMAT(1HO,IA,7(2X,G10.3),2X,IA) 

‘ ■ ■ IF ( . NOT . FILOUT) GO .TO 2A5 

. IF (NRUN.LE.9) £NC0DE(10,220,D0UT) I0NRS,1HU, IHOD, 1H0,NRUN 
220" F0RMAT(6I1,A1, II, Al, ID 

155 IF(NRUN.GE.IO) ENC ODE ( 10, 23O,0OUT) IDNRS, 1HU, IM00,NRUN 

: 230' F0RMAT(6I1,A1, 11,12) " * 

IX-IRE0ST(6LTAPE17,3L+PF) 

'IF(IX.NE.O) CALL INTI0(6HIX (RQ),IX,1,1) 

IF ( IX.NE.OJ STOP/DUTPUT FILE REQUEST NOT SATISFACTORY!* 

'ISO" — " ' WRITE(7,2A0) (OATOU T ( 1 1 , I ■ 1, 2) ’ ' ' ' 

240 FORMAT ( 25H0THI S WRITES OUTPUT FILE ,2A10> 

" 245 CALL' OATE(TODAY) “ ' *' ' “ ' " ~ - - - 

WRITE (7,250 FUNCTN (IAE),IAE 
230 FORMAT <1H0,A7,15H FUNCTION ( IAE *, II, 1H )) " 

165 X(*t) -X0tA,IAEI*0. 

~ WRITE (7,260) ( ( I , X (I ) 1 , I- 1, 8 ) 

260 FORMAT (15H0INITIAL STATE«//(3H Xt,Il,4H) * >613.6)) 

WRITE (7/270 )" IOENTS (2 ) " — 

270 FORMATt 1H0,A7) 
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175 ' 


18 J 


' 105 


190 


195"' 


200 


— 205 


210 


" 215 ' ' ~ 


220 


225 


C** ************************************************************ ******* 

'“"C 

30 J CONTINUE 

C THIS IDENTIFIES THE BASIC RECEIVER STRUCTURE ( THRHLD, OPT, SUBOPT ) 

CAND REINITIALIZES, AS NECESSARY, THE FOLLOWING RCVR DATA 
CIR (NEGATE UNLY), NOAC# NOKLMN, NOLQE, BRC VR, DE LBL, TETHRD 
1TIT-HIN0(IRCVR,2) 

C 

C NEGATE IR WITH THE FOLLOWING FOR NONADAPTIVE RECEIVER 
IFURSIGN.LT.O) IR — IR 
C 

RETURN 

C 

- c ********************************************************************* 

c 

• ACO CONTINUE ■' , 

C THIS OUTPUTS BASIC RECEIVER DATA OF INTEREST 
VfRITE ( 7, AlO ) (I0ENTS(II,I«3,AI,IR,NG,NS 
AlO FORHAT (1H0,A8,AHRCVR/1H0,A8,6HDESIGN/5H l IR-, 1 2, AH, NG-, 1 1, 

’ " * AH, NS*> 1 1, 1H ) ) ■ 

WR IT E ( 7 » A20 ) ( 1 0 ENT S ( 1 1 , I- 5, 6 ) 

A20 “ F QRMAT ( 1H0, A8/1 HO, A7/ ) ‘ ‘ " ’ 

RETURN 

" c 

C***+**A ** **************************************** **+♦****♦♦**♦♦*♦***+ 

'• C 

500 CONTINUE 

~ C THIS SETS-UP' THE HSET-LOOP 

RETURN 

" c 

C ****************************************************** *************** 

600 CONTINUE 

' C THIS S ETS— UP 'THE' LG— LOOP FOR THE (HSETI-TH SERIES OF SETS 

RETURN 

' C ' 

c *+**+»♦+*♦**♦*♦♦*♦+**+*♦**++*+**♦***+****♦***+**♦**++*+*♦+♦**♦ +*+***+ 

C • • - • 

700 CONTINUE 

“ C THIS SETS-UP THE K-LOOP FOR ' THE ' ( L G l-TH SET OF KM SCANS * ' ' 

CALL 1 NT 10 ( 6H KH,KM,1,1) 

WRITE(7,710) ‘ - 

710 FORMAT (AHO K, 3X, 6HC SNRTO, 5X, 6HCSNRFR, 6 X, 3H0TY, 7X, 

- ■'* AHALFA,5X,5HTHETA>6X,6HTHED0T,5X,5HALFAR,6X,6HTHETAR,5X, 

C 6HTHRD0T, 6X» AH B ,7X,3HWSC/> 

* RETURN ' ‘ 

C 

■ * c * + + + *♦ + *♦ + + + * + * *~************ ***************************************** 

c 

• 800 CONTINUE 

C THIS INITIALIZES THE K-TH SCAN 

' ■ IF (K.EQ.KSTART) X ( A ) -RHO+X (1 )“ 

IF (K.EO.KSTART) NGM»NG 

RETURN ' " 

C 

C ****** ************************************************** ************* 

C 


I 
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230 


235 


290 “ 


295 


250 


255 


• 260 • — 


265 


“‘270 


275 


2 BO ‘ 


285 


900 CONTINUE 

C THIS SAVfcS/R RE PROCESSES DATA FROM THE K-TK SCAN 
THLKh-X (2 ) -XS ( 2 ) 

UTHC -X 1 2 )-X 1 3 ) 

CULB-SORTI PP0IAG12 ) ) 

“ " 00 910 1-1, NS ‘ ‘ • ' 

fasm-x(D-xsu } * 

RMSVAL ( I )»SORT < PPDIAGtl > } 

910 CONTINUE 

IF INS.6E.7I E S ( 7) - AB S ( X 1 7 ) J-ASS t XS ( 7 )} 

IF (NS.GE.8) fcS<8) * ABS IX ( 8 ) l-ABS (XS ( 8 > ) 

SCANNR (K ) «K 

EAL F A( K ) ■ tS ( 1 1 

ETHET(K) -ES<2) ' “ ‘ 

EALFR(K)*ES(9) 

— “ ETHERCKJ-ES (5) “ 

XF0UR(K)*X(9)/X(1) 

“ ' IF (NS.LE.6J ’GO TO 915 ’ 

E8ETA(KI»180.*cS(7)/PI' 

EFSC(K)-0.5+ES(8)/Pl 
915 CONTINUE 

WRITE (7,920) K, CSNRT,CSNRF,1HX, (X (I ), 1-1,6) 

920 FORMAT! 1H ,13, 2 (1X,G10. 3) , OX, A1,1X, 8 (IX, G10.3 )) 

‘ WRITE ( 7,930) 7H *“ XS , ( XS ( 1 1 , 1 -1, NS ) 

WRITE ( 7, 930) 7H ERR, ( E S ( 1 1 , I « 1 , NS ) 

•" WRITE (7,930) 7HSQ(PII),!RMSVAUI),I-1,NS) ~ ‘ 

930 FORMAT (1H , 27X, A7, 1 X, 8 ( IX, G10. 3 ) ) 

WRITE (7,1) * ‘ ‘ 

RETURN 

C ****** *******+************* ***+*+++****+*******+»*' *********** +*++*++ 

1000 CONTINUE 

C THIS' SAVES/PROCESSES/OUTPUTS DATA FROM 'THE (LG)-TH SET OF KM SCANS" 
WRIT£(7>1060) ( GOGT ( I, I ) , I • 1, NS ) 

1060 FORMAT (10t/),35H ON LAST SCAN, DIAGONAL OF GQGT WAS/ ' 

♦ 1H ,G11.9»7(1H,,G11.9)) 

‘ YMIN-YMAX-O.""" .... 

WRITE (7,11) 

CALL PLOTR (SCANNR, c ALF A, KM, XNAME, YNAM1, YM IN, YMAX, 0 ) 

CALL REALIO ( 6H YMIN, YM1N, 1) 

CALL RE ALIO ( 6H ""'YMAX, YMAX, 1 ) 

YMIN-YMAX-O. 

"• ‘ WRITE ( 7, 11) "■ " ‘ 

CALL PLUTR (SCANNR, £THET»KM, XNAME, YNAM2,YH IN, YMAX, 0 ) 

"■ " ‘ CALL 'REALI016H YM IN, YMIN, 1 ) " 

CALL REALI0C6H YMAX, YMAX, 1) 

’ YMIN-YMAX-O, .. 

WRITE (7,11) 

” CALL P LOTR ( SCANNR, EALFR, KM, XNAME, YNAM3, YMIN, YMAX',0) " ‘ 

CALL REALI0(6H YMIN, YMIN, 1) 

CALL RE ALIO ( 6H "YMAX, YMAX, 1 )"“ — — 

YMIN-YMAX-O, 

WRITE’ (7,11)" " ‘ 

CALL PLUTRISCANNR, ETHER, KM, XNAME, YNAM9, YMIN, YMAX, 0) 

CALL REALI0(6H YMIN, YMIN, 1) 

CALL ReALIU(6H YMAX, YHAX,1 ) 





V % 
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YMIN-THAX-C. 

WRITE t 7/11 1 

CALL PLUTRI SCANNR, XFOUR, KH, XNAHE, YNAH5, YHI N, YMAX, 0) 

CALL R E AL 1 0 ( 6H YMIN,YK1N,1> 

CALL REALI016H YHAX , Y HAX,1 ) 

If (NS.LC.6) GO TO 1065 

WRITE (7,11) 

' YHIN*YHAX*0. ' .... 

CALL PL OTR (SCANNR, EBETA,KR, XNAHE , YNAM7, YHIN,YHAX, 0 ) 

' CALL RtAL10(6H YH1N, YMIN, 1 1 
CALL REALI0(6H YHAX,YHAX,1) 

" " ’ YK1 N* YHA X*D , 

WRITE (7,11) 

CALL PLOTR(SCANNR,£FSC,KH, XNAHE, YNAHB,YHIN,YHAX,0) 

CALL ft EAL 10 ( 6H YM IN, YHIN, 1 ) 

‘CALL REALIQt 6H YHAX,YHAX,1) 

1065 CONTINUE 

IF( * NO T , f I L OUT } RETURN ' ' ' ' 

WRITE (7,11) 

WR1TE(7,1070) (OATOUT(I), 1-1,2) 

1070 F0RI1A1 ( 13H OUTPUT FILE ,2A10,lHl/> 

' WR1 TE ( 7, 1072 ) OOUT,D£LT*MTIM£S, LGHAX, KM, TODAY, JBNAM 

1072 FORHAT ( 1H , A10, 8X, G13.6, 5X, 3 ( 5X, 13, 10X ) , A10, BX, A10/ ) 

’ WRITE (7,1074) IDENTS,KSTART ' 

107* FURHATQH , 6 ( IX , A6,9X ) , I 3 / ) 

' WR I T E ( 7, 1076 ) NRUN, DSNR06, RHO, BETA,F$C,BHLS,BRCVR,THES£P 

1076 FORHAT (1H , 12, 3X, 7 ( 3X,G12 . 6 ) / ) 

IKH*H1N0(35,KH~9> * - - 

00 1077 1*1, IKH 

1077 WRIT6(7,1076)EALFA(I),£TH£T(I),EALFR(I),ETH£K(I),XF0UR(I> " 

1073 FORHATUH ,5(613.6,5X1 ) 

00 1079 1*1,5 ’ " ’ 

1079 W R ITE ( 7 ,1060 ) 

1030 FORHAT (1H,5(6X,1H.,11X) ) * 

KH3-KM-3 

00 1031 I*kH3,KH ' ' 

1061 WRITE(7,1078)EALFA(I),ETHET(I),EALFR(I),ETHER(I),XF0UR(I) 

WR1TE(7,10E3)RH0HAX,0TH0, TDRO, BETAO, FSC 0, E3ETA0, E8ETA(KH ) ,E FSCO, 
CEFSC(KH) 

•'1083 FORHAT ( 1H0, 9 ( G12 .6, 2X ) ) ■ ~ 

WRITE (17) OOUT,DELT,HTIHES,LGHAX,KH,TODAY,JBNAH 
‘ ' " WRI T E ( 17) " ID ENTS, K START ' ... 

WRITE (17) NRUN, DSNROB, RHO, BETA, FSC, BHLS, BRCVR, THESEP 
DO 1090 1*1, KH 

WRITE (17) EALFA(I),ETHET(I),EALFR(I),ETHER(1),XF0UR(I) 

' 1C90 CONTINUE * * 

WRITE (17) RHOH AX, OT HQ, TDR 0, BETAO, FSC 0, E BETAO, E 0 ETA (KH ) ,EF SCO, EF SC ( 

.. CKH( 

REWIND 17 

IX*IATTACH(6LTAPE20,DAT0UT) 

CALL RETURN(6LTAPE20) 

1F1IX.NE.0! GO TO 1095 “ ' 

IX*ICATAL0(6LTAPE17,DAT0UT,2LPW,8RHIGHF1LL,2LRP,365) 

GO TO 1096” ' ' - - 

1095 1X*ICATAL0(6LTAPE17,0AT0UT,2LXR,BRHIGHFILL,2LRP,365) 

1096 IF (IX.NE.G)- CALL INT 10 ( 6HIX (C A) , IX, 1, 1 ) 

IF(IX.NE.O) STOPWOUTPUT FILE CATALOG NOT SATISFACTORY* 
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CALL RETURN16LTAPE17) 

' • " ' ' 'WRITE (7,1099) ( 0 ATOUT (I) , I -1, 2 ) ' " 

1099 FORMAT (13HC0UTPUT FILE »2A10,33H IS WRITTEN, CATALOGEO AND CLOSED) 

kETURN ' " ' 

C 

~ •C4A»*+44*+l+**+***+A+*******+****++****+t*******+*4+*+A+»+**+»+4***++* ' 

C 

■ ' ' 1100 CONTINUE •• • ' • 

C THIS SAVcS/PRQCESSES/OUTPUTS DATA FROM THE (MSET)-TH SERIES OF 

" “ CLGMAX SETS OF KM SCANS ~ ‘ 

RETURN 

C*****i*tt ********** t************************************************* 

. - c ........ 

12 1,0 CONTINUE 

— c THIS ciOSURE _ ‘OF _ THE’ SIMULATION 'RUN 

WRITE (7,11) 

RETURN ' 

C * ***** + 4 +****♦**♦♦*++*** ******** **** ***$****44******* + ******* ******** 

C • ' 

CiTSTORAGE USED '■''6.147 SECONDS ' 
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js. O’ 

-o ■» 


SUBROUTINE CONTRL(ISW) 

C THIS CONDUCTS THE MLS SIMULATION THROUGH A 

•' • “ - - C CROSSING MULTIPATH SCENARIO — 

5 C 

INTEGER XNAME<2),YNAKE<2),0ATIN14J,DATGUT<4),D0UT 
‘ INTEGER TITLEl(3),TmE2<Z, 2), FUNCTNU) • ” * 

LOGICAL NOKLHN* NOLO E* NO AC*KALMAN»LOE* TE THRO* MORE, NFIRST* ADAPT V 

10 " " C OHMON/ID OATA/ IS IM* IPHLS*IRCVR*IADAP*I T ETHR* IPOPT 

COMMON / R CV ROO/THAH AX »TH AM IN»TS»TRiOM EGA »TF 

C0HH0N/RCVR01/NGMIN,NGHAX*DELBL»NGM*IR*IAE 

CDMHON/RCVR02/RHOMAX*DTHO,TDRO»BO*WSCO*NSO(4),NGO{4) 
C0HM0N/RCVR03/PI*F(8>8),FL23<4),FSAMP,K,KH,TETHRD,NG,NS*JH 
15 COMMON/ RCVRO 4/DE LT,ED(0)*GQGT(8,8)*H(5»8), I COUNT/SIGMA 

' COMNON/RCVR05/NOLOE,NOKLMN*NOAC»GAMAES<5),RDIAG(5),PMDIAG<8) 

C0MMON/RCVR06/PPDIAG(8),RHAT(5,5l, PHI { 5*5>* PA C 8, 8 ) ,LAMDA I 5 t 

' ' ’ ' — COMMON /RCVR07/T (130I*V(130I ' - . . 

CQMM0N/RCVR06/XSL0E(81» ESLOE <8 ) * ES (8 » 

20 ' “ • ■ C0MM0N/RCVR09/BRCVR#BB»P0CRIT»CC ' 

COMMON/ RCVR10/ XS 1 ( 8 ) > XS ( 8 ) 

COMMON/ MLS 000/ AL FA >THE> TH ED OT* ALF AR* THR* THRDOT* B* WSC ‘ . - - 

CQMH0N/HLSa0I/C5NRT*CSNRF*DSNRDB*RH0»BETA, FSC/LGMAX 

* C0MM0N/MLS0O2/DCSNR*CSNR*LG*TPKT*TPKF 1 1 ' — ” 

25 COMMON/ MLS003 /FL10AE (4*2)*FL10(4)*DELTAT(2)*XQ(8*2)*Y0(4*2) 

‘ C0MHQN/HLS004/BHLS* B B B> MTIHE S* MSET* MORE 

DIMENSION CSNRTO(100)*X(8)*THESER(100)*THESEP(100)*ABBORT(100) 

DIMENSION IDNRS(6).IDASCI(18),IDENTSt6)»CSNRFR(100) ■ -- 

EQUIVALENCE (ALFA/X ( 1) ) * ( ISIM* IDNRSI 1) 1 » < DOUT,DATOUT (2 )) 

30' -'DATA ABORT/IHA/iSPACE/lH / ,NF IRST/ .F ALS E . /* AD AP TV/. TRUE. / 

DATA DATIN/10HHLSSI HD AT A* lOHlOGGOOFOOO* 2+0/ 

DATA DATOUT/10HMLSSIHDATA/3 + 0/ 

DATA IDASCI/7HC RDSSMP* 7HRHS E(T)*7HRMSE(B)»BH PMLS1 *8H PHLS2 * 

■ ■ *8H ? ML S3 *8H THRHLD * BH OPTIML ,8H SUBOPT *0K -3 OB ,8HADAPTIV , 

35 ♦8HNQNADAP * 8HUNTETHRD* 8HTETHERED/2H , 6H P0PT1 , 8H P0PT2 * 

*8H P0PT3 ‘ / ' “ 

DATA NSTART/15/,IRSIGN/1/ 

• ~ DATA TITLE1/6H X(2) >6HX2-X5 »6HXS(2> / 

DATA TITLE2/6HFIL ER» 6HX2-XS2»6HX2-XS2# 6HSQRP22/ 

40 DATA FUNCTN/7HAZIMUTH/7HELEVAT./ 

DATA XNAME/8HTHETASEP*8HDEGREES_/*YNAME/8HTHE$ ERR»BHDEGREES / 

GO TO (100*200/ 300* 400/ 500*600* 700* 800* 900* lOOOj 1100* 1200 )* ISW 

x FORMAT ( 1H ) — — • • 

45 10 FORMAT (9(/) ) 

11 ' FORMAT' (1K1) - 

c 

C*4***************++*+**+**4************** + * + *»*** + + #+*************»** 

c 

- ■■ 50 - ■ -- '“100 CONTINUE ... 

C THIS IDENTIFIES THE SCENARIO AND REINITIALIZES* AS NECESSARY, 

CTHE FOLLOWING RECEIVER PARAMETERS 
CSIGMA*IAE*DSNROB*RHO*FSC,BETA* JH,BMLS 

— -IFINFIRSU GO TO-155 - ■ 

55 NFIRST*. TRUE. 

- JBNAM- JOBNAME(I) - - - 

ISIM-1 
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PAGE 


2 


60 


"65 — 


•" 70 


75 


•* 80 ' 


85 


• 90 


95 


100 


105 


■ no - - 


IMOO-1 

.. — WRITE (7>no , - - • • • 

110 FORMAT ( 2 BH1 CROSSING-MULT I RATH SCENARIO/) 

GO TO 122 ■ -"•••- 

COLO IX*IATTACH(6LTA PE15.DAT IN) 

COLD IF IIX.KE.01 CALL INTI0(6HIX ( AT ) , IX, 1, 1) 

COLD IF (IX.NE.01 STO PA INPUT FILE ATTACH NOT SATISFACTORY* 

■ CDLO • WRITE17,120) < DATI N (I ] , !■ 1, 2) 

120 FORMAT (23H THIS READS INPUT FILE >2A10/) 

122 CONTINUE - • - 

NULL TRANSFER STATEMENT -- TRANSFER IGNORED 

“CALL INTI0(6HNSTART»NSTART, 100,0) ' 

NSTOP-NSTART 

CALL INTI0(6H NSTGP.NSTQP, 100,0)- ' ' 

CALL LOGIO(6HTETHRD,TETHRD»0) 

IF( IRCVR.EO.l) GO TO 125 “ • • 

CALL L0GIQ(6HADAPTV,ADAPTV,Q) 

125 • CONTINUE ' 

1FITETHRD) ITETHR+2 

• - IF (ADAPTV) GO TO 135 * 

IRSIGN— 1 

IADAP*3 • •— 

135 CONTINUE 

DO 145 I *2.6 — - ‘ ’ 

IASC»3*U-1)+I0NRS(I> 

■ ID ENTS (I)*XD ASCII IASC ) v " ' 

145 CONTINUE 

• encdde(8,150.idents<D) idasci ( isim) » imoo - ■” 

150 F0RHAT(A7,I1) 

" WRITE (7.152) IDNRS, IMOD ‘ '-** 

152 FORMAT (1H ,611, IX. 11/) 

’ WRITE (7.153) IDENTS . ~ 

153 FORMAT (1H ,A8) 

155 "CONTINUE - ** • 

READ (10, 160) NRUN, DSNRDB.RHD. DETA,FSC,BMLS,BRCVR 
160" FORM AT ( 15, 6G10 • 3 ) ... 

IF(NRUN.LT.NSTART) GO TO 155 
IF (NRUN.GE.NSTOP) MORE*. FALSE. ‘ 

RETURN 

c 

200 CONTINUE 

- * c THIS OUTPUTS BASIC SIMULATION DATA OF INTEREST, SUCH AS ” 

CTHE ANGLE FUNCTION, INITIAL STATE, ETC. 

' * - WRITEI7.210) NRUN.DSNRDS.RHO, BETA.FSC.BMLS.BRCVR 

210 FORMAT (5H1 NRUN, 12X»6HDSNRDB,16X,3HRK0, 16X, 4H0ETA, 17X,3HFSC,16X» 

- ‘ ■+4HBHLS,15X,5HBRCVR/1H0,I4,6(10X,G10.3)) ‘ ‘ ' 

I F ( NRUN. LE.9 ) ENCODE ( 10, 220, DOUT ) IDNRS,1HU,IM0D, 1H0,NRUN 
220 F0RMAT(6I1,A1, II, At, ID 

IF ( NRUN ■ GE « 10 ) ENCODE (10, 230.00UT > IDNRS.1HU, IMOD, NRUN 

230 FORHATf 6I1.A1.I1, 12) | - 

IX*IREQST(6LTAPE17»3L+PF) 

“ IF(IX.NE.O) ‘CALL INTI Q( 6HIX(RQ),IX>1, 1 ) ' 

IF(IX.NE.O) STOPAQUTPUT FILE REQUEST NOT SATISFACTORY* 

■ ' WRITE17.240) (OATOUT ( I ), I«l, 2) 

240 FQRMATI25H0THIS WRITES OUTPUT FILE ,2A10) 
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CALL DATE ( TOOAY ) 



115 

250 

260 

WRITE (7,250) FUNCTN (IAE),IAE 

FORMAT ( 1H0, A7, 15H FUNCTION ( I AE-, 11, 1H ) ) 

WRITE (7,260) ( ( I, X ( I ) ) , I -1, 8 ) ' ' ’ 

FORMAT (15H01NITIAL STATE«//(3H X(,I1,AH) » ,G13.61) 



. 120 

270 

WRIT£(7,270) IOENTSU)' " 

FORMAT ( 1H0,A7) 

■ RETURN ' ' ' “ • -• 


— 


c 

’ C*****+* + *A*» ******♦♦*♦*♦♦♦ ** + *♦*+***** + *♦♦* + *♦* + + **♦**♦**♦* ****♦*♦♦♦* 

C 

—125 300 " CONTINUE " ’ ' ' * ' 

C THIS IDENTIFIES THE BASIC RECEIVER STRUCTURE ( T HR KLD, OPT, SUBOPT > 

" CAND REINITIALIZES) AS NECESSARY, THE FOLLOWING RCVR DATA 

CIR (NEGATE ONLY), NO AC, NOKLHN,NOLO£,BRC VR,D ELBL, TETHRD 

ITIT»KIN0URCVR,2) * ' ' ....... 

130 C 

c NEGATE IR HITH f HE FOLLOWING FOR NDNADAPTI VE RECEIVER * 

IFURSIGN.LT.O) IR— IR f' 

RETURN 

. 135 c - „ - - ' • 1 - ... ■ 

C ♦»*♦*♦*******♦♦♦**♦♦*♦♦*♦»*♦♦♦♦♦***’,**♦♦♦*♦♦♦♦*♦♦♦*♦*♦*♦*»**»*♦♦***** 

AOO CONTINUE 

• ■ ■ C THIS OUTPUTS BASIC RECEIVER DATA OF INTEREST ” .... 

1 AO WRITE ( 7, A1Q ) (IDENTSU),I«3»A),IR,NG,NS 

A10 - FORMAT ( 1H0, A8, AHRCVR/1H0, AB»6H0 ES IGN/5H ( IR-, I2»AH,NG«» 11, 

* AH, NS*, II, 1H) ) 

'WRITE(7,A20J (1DENTSU), 1-5,6) — — 

A20 F0RMAT(lH0,A8/lH0»A7/> 

• 1A5 "RETURN - — 

C 

- <;****** + **♦+*+*+*+***+**♦+****++*♦*+**+♦++****♦*♦*♦+♦*+'('♦+*#*******♦** " 

C 

- “- 300 'CONTINUE ■ ~ 

150 C THIS SETS-UP THE MSET-LOOP 

•“ ICOUNT-O*- - “ ' ” 

RETURN 

C* ♦ *♦**>*♦*♦**♦*♦** *+***♦**+*+♦*♦******♦++♦♦+♦**♦♦♦♦+**♦♦+ ♦+♦,*♦***♦** 

600 CONTINUE 

" C THIS SETS-UP-TKE LG-LOOP FOR THE (MSET)-TH"SERIES OFSETS 

RETURN 

160 (;**♦**♦**♦+****.*♦**♦**********♦♦*♦****♦♦*♦****♦*******♦** + ♦+** + ****+♦+• ■ 

700 CONTINUE 

-C THIS SETS-UP THE K-LOOP FOR THE -(LG)-TH SET OF KH SCANS ■ • 

CALL INTI0I6H KM,KK,1,1) 

-165 - WRITE(7,710)-(TITLE1(II,I-1,3),(TITLE2(I,ITITI, 1-1,2) - - 

710 FORMAT (AHO K, 6X , 5HC SNRT, 6X, 5H CSNRF, 5(5X,A6,AX)/) 

EHS-O. 

- LASTCT-0 - - - • ‘ 

170 RETURN 
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200 
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210 


215 


220 
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C 

~ ■" ‘ C********************************************************************* ' 

C 

BOO CONTINUE 

C THIS INITIALIZES THE K-TK SCAN 

SEP-SPACE ’ ’ 

RETURN 

C 

C* ************************************************************* ******* 

• ■ ■■ C * * ‘ 

900 CONTINUE 

C THIS SAVES /PREPROCESSES DATA FROH THE K-TH SCAN 

IF(ICQUNT.NE.LASTCT) SEP«ABORT 
TH ERR* X ( 2 )— XS ( 2 ) 

CDL8*THERR 

DTHE*X(2)-X<5) ... 

IF tIRCVR .N£. 1) C018»S0RT (PPDIAGt 2) ) 

IF (IRCV.R .EQ. 1) CALL DFLTR1(C0L8,THERR,FL10) 

WRITE! 7* 910) K»CSNRT,CSNRF,X(2)»0TKE,XS (2 ) > SEP, THERR, C0L8 

910 FORMAT { XH , 13, 2 1 2X, F9. 3 ) * 3( 2X, G13. 6) , IX, A1»1X, G13 . 6 , 2X, G13. 6 ) 
CSNRTO(K)*CSNRT 

"* CSNRFR(K)*CSNRF — - " 

THESEP!K)«DTHE 

... THESER(K)«THERR r 

ABBQRT(K)*SEP 

LASTCT-ICOUNT ‘ ~ ' 

EMEAN*EMEAN+THERR 

EMS»EHS+THERR**2' ' 

RETURN 

C *************++***********+**+*+**+*************+**************+***** 

1000 CONTINUE 

• C THIS SAVES/PROCESSES/OUTPUTS DATA' FROM 'THE (LG)-TH SET OF KH SCANS 

EHEAN*£HEAN/KH : 

EHS-EMS/KH ’ 

ERHS»SQRT (EHS ) 

• ESTDEV»SQRT(EHS-EHEAN+*2) ■ ~ - 

XW*1C0UNT 

• TCQUNT»100»+XW/KH •• • ■ 

WRITE(7,1Q10) 

1010- FORMAT {31H0THETA-ERR0R SAMPLE' STATISTICS*) " ' 

IF ! IRCVR .EQ. 1) WRITE (7* 1020) 

1020 FORMAT (17H (FILTERED ERROR)) 

WRITE<7,1030) EHEAN, ERMS.ESTDEV 

1030 FORMAT (10HO EMEAN * ,G13.6/10H ERMS * ,G13.6/ 

+10H ESTDEV ■ ,613.6) 

" IF tIRCVR".EQ. 1) WRITE(7>1040)' TCOUNT " ' ‘ ~ 

1040 FORMAT (//1H0,F7.2,22HX OF SCANS ARE ABORTED) 

-• YHIN*YMAX*0. ■ -* -•••*■.•• ■ . - 

WRITE (7,11) 

CALL' PLOTR'(THESEP,THE$ER,KM,XNAHE»YNAME,YMIN»YMAX,0> 

WRITE (7,11) | 

“ ' CALI REALI0(6H“ YHIN,YHIN,1) : ~ - 

CALL REALIO! 6H YHAX,YHAX,1) 

IF (IRCVR-.NE. 1) WRITE 1 7, 1060 ) (GQGTC I, I) , 1*1, NS ) 

1060 FORMAT (10(/),35H ON LAST SCAN, DIAGONAL OF GQGT WAS/ 
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230 


1070 


1072' 


__ 235 1074 


240 


—1076 


1077 
1078 


“ 245 


250 


• 255 1090 


260 


265 


270 


-275 



+ 1H ,G11.4,7(1H,,G11.4)) 

WRITE (7/11) 

WRITE! 7,1070) (DATQUT(I), 1*1,2) 

FORMAT ( 13N OUTPUT FILE ,2410, IK!/) 

WRITE (7, 1072) D OUT; OELT, MTI MES,LGHAX, KM, TODAY, J8NAH 
~ FORK ATI 1H , A10, 8X,G13.6,5X,3(5X,I3,10X) , A10, 8X, 410/ ) ‘ ' “ 

WRITEI7, 1074) IDENTS 

‘ FORMAT < 1H ,6<1X,A8,9X>/) 

WRITE (7, 1076) NRUN, OSNRDB, RHO, BETA, FSC, BMLS, BRCVR 

FORMA T 1 1H ,5X,I2,6X,6(5X,G13.6)/> 

IKH*HIN0<35»KM-9) 

' DO 1077 I* 1, IKK 

WRITE (7, 1078) CSNRTO 1 1) , CSNRFR ( I l»THES£R( I ) , ABBORT ( I >, THESE PI I »# I 
- FORMATUH ,3(G13.6,5X),6X,A1,11X,GI3.6,5X,I7) ' • • • 

DO 1079 1*1,5 

1079 WR ITE ( 7, 1080 ) '• ■ 

1080 F0RHAT(1H,6(6X,1H.,11X) ) 

“ ‘KM3*KM“3 ‘ - " 

DO 1081 I*KM3,KH 

1081 - WR ITE ( 7, 1078 ) C SNRTOd ) /CSNRFR ( I > , THESERd ), ABBORT 1 1 >,THESEP( I > , I 
WRITE (7, 10 62) EKEAN,ERM S» ESTDEV, TCOUNT, YMIN, YMAX 

-1082 FQRHAT(1H0,6(G13.6,5X)/) * * ■ “ - 

WRITE (17) D OUT, OELT, HUMES, LGMAX, KM, TOD AY, JBNAM 

- WRITE 1 17 I IDENTS “ 

WRITE (17) NRUN, DSNRDB, RHO, BETA, FSC, BHLS, BRCVR 
■ • - DO 1090 1*1, KH 

WRITE (17) CSNRTQ(I),CSNRFR(X),THESER(I), ABBORT (I),THESEP(I),I 

CONTINUE -• • - • ' ■ ~ 

WRITE(17) EHEAN,ERHS, ESTDEV, TCOUNT, YHIN,YHAX 

— -• REWIND 17 - 1 

IX*I ATTACH <6LTAPE20,DATOUT) 

_ - CAU R£TURN(6LTAPE20) • - - - - - - - ~ 

IF(IX.NE.O) CO TO 1095 

— = .. IX.ICATAL0(6LTAPE17,DAT0UT,2LPW,8RHIGHFILL,2LRP,365) 

GO TO 1096 

1095 IX*ICATALO( 6LTAPE17,DAT0UT,2LXR,8RHIGHFILL,2LRP,365) "" * ' “ 

1096 IF ( I X.NE.O ) CALL INTIO( 6HIX(CA) , IX, 1,1 ) 

... -xptix.NE.O) -STOPWOUTPUT FILE CATALOG NOT SATISFACTORY)* 

CALL RETURN (6LTAPE 17) 

WRITE (7,1099) (DATOUT(I), 1*1,2) “ .... 

1099 FORMAT (1 3HQ0U TPUT FILE ,2A10,33H IJ WRITTEN, CATALOGED AND CLOSEO) 

C 

— - c* + + ****4** + + «9***<*<'**«***** + t + + + + **«*t + ** + *** + + + ** + *** + , *** + * + ** + * + * — 

c 

1100 “CONTINUE - - - 

C THIS SAVES/PROCESSES/OUTPUTS DATA FROM THE (HSET)-TH SERIES OF 

CLGMAX SETS OF KiTSCANS '■ 

' RETURN 

C ♦ ♦♦* + ♦♦♦<'♦*++♦+♦**+*+*■+*+*♦*+**+*’+*** + + #+**♦*+** + ** + ** ++* + ++♦* * + ♦♦ + + + 
1200 CONTINUE 

C‘THIS‘EFFECT$'CLOSURE~OF‘THE‘ SIMULATION RUN ‘ 

RETURN 

C 9 ****************** +♦♦♦♦*********+*+**+«*+♦*+++**♦***++*♦ ♦*** + ♦****♦* 
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10 


15 


20 


25 


30 


35 


90 


95 


50" 


55 


SUBROUTINE CONTRL ( I SK) 

THIS CONDUCTS THE HUS SIMULATION THROUGH A 
RMS E VS. BRATIO ( « BRCVR/8MLS). 

REAL LAHDA 

INTEGER XNAME1(2>,YNAME1<2>,YNAM1(2,9) 

INTEGER XNAME12 ) , YNAME 1 2 ) , 0 ATIN ( 9 ) , 0 AT OUT ( 9 ) , OOUT 
INTEGER T1TLE1<9),FUNCTN(2) 

LOGICAL NOKL NN, NOLOE, NOAC, KALMAN ,L0E,TE THRO, MORE, NFIRST, ADAPT V, 

CFI L£ IN, F I LOUT 

COMMON/ IDDATA/ I SIM»IPML5, IRCVR, IADAP, ITETHR, IPOPT 
C OMMON/RC VROO/THAMAX, TH AM IN,TS»TR< OMEGA, TF 
COMMON /RCVR01/NGH IN, NGMAX, DE LBL, NGM, IR,IAE 
COMMON/ RC VR02/R HOMAX » DTHO, TORO, BO»WSCO,NSO<91,NGO{9) 

COMMON/RCVR0 3/PI,F < 8, 8 ) , FL2 5 ( 9) , F S AMP , K, KM, TETHRD, NG, NS, JH 
C0MM0N/RCVR09/0ELT,eO(B),GQGTtB,8>»H(3,B>,IC0UNT,SIGHA 
COMMON/ RC VR05/N OLOE, NOXLMN, NOAC, GAMA ES ( 5 ) , RO I AG ( 5 ) , PHD I AG ( 6 ) 
C0MM0N/RCVR06/PPDIAG(8),RMATt5,5),PHI(5,5),PA<6,8),LAHDA(5) 

COMMON /RCVR07/T (130 ), V< 130) 

COMMON /RCVR08/XSL0E<8),ESLDE(8)iES(8) 

COMMON/RC VR09/8RC VR» BB,PDCRIT,CC 
COMMON /RCVR10/XS 1 ( 8 ) , XS ( 8 ) 

COMMON /MLSOOO/ AL FA, THE, THEDOT, ALFAR, THR, THRDOT, B, NSC 
COMMON/ ML S001/CSNRT,CSNRF,DSNRD6,RHD, BE TA,FSC,LGMAX 
C0MH0N/HLS002/0CSNR,CSNR,LG, TPKT, TPKF 

COMMON/MLS003/FL10AE(9,2),FL10(9),DELTAT (2),X0(8,2),Y0(9,2) . 

COMMON /MLS009/BMLS,BBB»HTIMES, MS ET, MORE 

DIMENSION X(B),THESERtll3),XDATUH(115l, EEME (13),EERHtl3) 

DIMENSION IDNRS(6),IDASCI{20),IOENTS(6),EEST<13),TTCG(13),YYMI(13) 
DIMENSION YYMAI13) 

DIMENSION BR ATI 0 < 13 1 

DIMENSION EEMEA(13,9),EERHS(13,9),EEST0(13,9) 

DIMENSION EMEAN(9),EM5(9),ERMS<9) , ESDI 9) 

EQUIVALENCE < EEHEU J , EEME All, 2)1 »< EERMI 1 )> EERMS (1,2) 1 , 
*<EEST(1>,EESTD(1,Z> » 

EQUIVALENCE(THERR,ES(2) ) 

EQUIVALENCE IALFA,X(1)),{ ISIH#IONRS( 1) ), ( DOUT, DAT OUT (2) > 

DATA YNAM1/8HALF RMS E , BH , 8HTHE RM5E, BHOEGREES , 

+8HTDT RMS E , 8HDE G/ SEC , SHALR RHSE , BH , BH THR RMSE, 

♦BHOEGREES , 8HTRD RMSE, BHD EG/SEC , 6HBET RMSE, BHOEGREES , 

♦8HFSC RMSE,8H HZ , 8HFSC0RMSE, 8H HZ/SEC / 

DATA A8QRT/1HA/,SPACE/1H / , NF IRST/ .F ALS E . /, ADAP TV/ .TRUE . / 

" " DATA DAT IN/ 10HM LSS IMO AT A, 10H200000FOOO, 2^0/ 

DATA DAT0UT/I0HMLSSIHDATA,3*0/ 

DATA IDASCI/7HCROSSMP,7HRMSE(T)i 7HRHSE ( B)»7HRMSE(F),7H , 

_*8H PMLS1 ,8H PMLS2 , 

♦BH PMLS3 ,8H THRHLO ,8H OPTIHL ,8H SUBOPT ,8H -3 DB ,8HADAPTIV , 
♦6HN0NA0AP , 8HUNTETHRD ,BHTETHEREO, 2H , BH P0PT1 ,8H P0PT2 , 

♦ BH P0PT3' / 

DATA NSTART/3/, IRS IGN/1 / , KSTART/11/, BRARAT/10 . /, FI LE IN 
“"*/. FALSE. /,FILOUT/, TRUE./ “ 

DATA TITLE1/6H ALFA ,6H THETA, 6HTHED0T, 6H ALFAR, 6HTHETAR, 6KTHRD0T_ 

C,6H B ,6H WSC ,6HWSCD0T/ 

DATA XNAME/6H BETA .SHDEGREES / , YNAME/ 8HTHES ERR, BHOEGRE ES / 

■ DATA XNAME1/BH BRATIO , 8H / 

DATA FUNCTN/?HAZIMUTH,7HELEVAT./ 
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80 
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90 


95 


100 
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110 
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C 

GO TO ( 100,200,300,600, 500 >6 00 >700.000/ 900. 1000.1100/ 1200 ) > ISM 

I FORMAT! 1H ) 

10 FORMAT 1 9 1 / > ) 

II FORMAT ( 1 HI ) 

C* + ***»» + + *^**** + **** + *** + + *****+** ++****+* + *^*^****** +++**4<*+*4**^*4* 

c .... 

100 CONTINUE 

C THIS IDENTIFIES THE SCENARIO AND" REINITIALIZES, AS NECESSARY, '* 

CTHE FOLLOWING RECEIVER PARAMETERS • 

CSIGMA,IAE,OSNRDB,RHO»FSC,BETA,JH,BMLS " " 

IF(NFIRST) GO TO 155 

N OAC » .TRUE . 

NF IRST» . TRUE. 

JBNAM.JOBNAMEa) " “ 

ISIH-3 

1M0D-1 ■ ' ~ ~ 

WRITE (7,110) 

110 F0RHAT136H1RHSE VS.BRATIO » BRCVR/BHLS SCENARIO/) " 

CALL L0GI0(6HFILEIN,FILEIN,0) 

IF (.NOT.FILEIN) NSTART-0 " ' 

IF(. NOT.FILEIN) GO TO 122 

IX*IATTACK(6LTAPE15,DATIN)“ 

. . IF(IX.NE.O) CALL INTI0(6HIX(AT),IX,1,1) 

IF(IX.NE.O) STO Pi< INPUT FILE ATTACH NOT SATISFACTORY* 

WRITE (7,120 ) (OATINU ), 1-1,2) 

120 FORMAT (23H THIS READS INPUT FILE" i2A10/> " 

122 CALL LOGIO ( 6HF1 LOUT, F ILOUT, 0) 

CALL INTI0(6HNSTART,NSTART, 100/01 
NSTOP-NSTART 

CALL INTI0(6H NST0P,NSTOP,lOO,O) " * 

CALL L0GI0(6HTETHRD,TETHRD,0) 

IF(IRCVR.EQ.l) GO TO 125 ' 

. .. CALL L0GIQ(6HADAPTV»ADAPTV,0) 

125 CONTINUE " ' " 

IF (TETHROI ITETHR-2 

IF (ADAPTV) GO TO 135 ' 

IR5IGN«-1 

1A0AP-3 ' " - - - 

135 CONTINUE 

DO 165 I ■ 2," 6 ~ "" 

IASC»3*(I-l)+IDNRS(I)+2 

IDENTS t I ) »ID ASCI ( I ASC ) ' 

165 CONTINUE 

ENCUDE(8,150,IDENTS(1>) ID ASCI ( IS IH) , IMOD 
150 _ FORMAT! A7, II ) 

""WRITE (7,152) 1DNR S, I MOD 

152 FORMAT (1H ,6I1,1X,I1/1 

WRITE (7,153) IDENTS ~ — . _ , . 

153 FORMAT (1H , AS ) 

CALL INTI0(6H LGMAX, LGMAX, 13,0 ) 

CALL INTI016H KM, KM, 115,0) 

CALL REALI0(6HBRARAT,8RARAT»0) ' ' ~ 

KSTART»MIN01KM,KSTART) 

BRAT 10 ( 1 )*1» • “ • “ 

BRATMX-SORTfBRARATI 
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145 
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160 
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FTH 4.6+452 04/13/79 10.20.09 PAGE 3 


ROOT*l./( LGMAX-1 ) 

IF(LGMAX.LE.l) GO TO 156 
00 154 I-1,LGMAX 

15 4 ORATIO(l)- BRATMX + + ( 2. *ROOT* ( I-D — 1. } 

156 CONTINUE 

KHNET-KH-KSTART+1 
FSCMIN-1./(DELTAT< IAE1+KHNET) 

NRUN-NSTART-1 

DSNRDB-20. 

RH0-0.5 

BETA-45. „ 

IFS-1 

T5EP-1. 

155 CONTINUE 

IF(FILEIN) GOTO 158 
NRUN-NRUN+1 
WRITE ( 7. 11 ) 

CALL INTI016H NRUN, NRUN, 1. 1 ) 

CALL REAL 10( 6H0SNRD8, DSNRD8,0 ) 

CALL RE ALT 0 ( 6H RHO.RHO.O) 

CALL RE ALI0(6H BETA, BETA, 0) 

CALL INT 10 1 6H IFS.IFS, 100,0) 

CALL REALI0(6H TSEP,TSEP,0) 

GOTO 167 
158 CONTINUE 

READ (15,160) NRUN, DSN ROB, RHD, BETA, IFS,TSEP 
IF(E0F(15) 1170,165 

160 FORHAT< I5,3G10.3,5X,I5, 2G10.3) 

165 IF(NRUN.LT.NSTART) GO TO 158 _ 

167 IF(NRUN.GE.NSTOP) HORE-. FALSE. 

FSC-IFS+FSCMIN 

XO(5,IAE)*XO(2,IAE)-TSEP 

X0(3,lAE)-0. 

X0(6,IAE)-0. 

RETURN 

170 STOPREOF REACHED ON INPUT FILE* 

C 

CA+++A+++* +*++♦+**♦+*+**+*******++*♦♦*♦+*+++**♦+***+*******♦+*♦+♦♦*♦** 

c 

200 CONTINUE 

C THIS OUTPUTS BASIC SIMULATION DATA OF INTEREST, SUCH AS 
CTHE ANGLE FUNCTION, INITIAL STATE, ETC. 

WRITE (7, 210) NRUN,DSNROB,RHO,8ETA,IFS,TSEP 
210 FORMAT (5H0NRUN,12X,6HDSNRDB,16X,3HRH0, 16 X, 4HBETA, 16X »4HIF SC, 16X, 
*4HT$EP/1H0,I4,3(10X,G10.3),12X,I3>3X, 

* ( 10X,G10. 3 ) I 
IF ( . NQT.F ILOUT ) GOTO 245 

IF (NRUN.LE.9) ENCODE ( 10, 220, DOUT) I DNRS, IhU, I HOD, 1H0, NRUN 
220 F0RHAT(6I1,A1,I1,A1,I1) 

IF (NRUN.GE . 10 ) ENCODE (10, 230, DOUT ) IDNRS»1HU, IHOD, NRUH 
230 F0RMAT(6I1,A1,I1,I2) 

IX-IREQ5T(6LTAPE17,3L*PF) 

IF (IX »NE .0 ) CALL INTI0(6HIX(RQ),IX,1,1) 

IF(IX.NE.O) STOPWOUTPUT FILE REQUEST NOT" SATISFACTORY* 

WRIT£( 7, 240 ) (DATOUTI I), 1-1,2) 

240 FORMAT ( 25H0THIS WRITES OUTPUT FILE ;2A10) 

245 CALL OATE (TODAY ) 


“TJ 2 

8s 

sa r 


<o 

c 

J> 
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175 


leo 


165 


190 


195 


200 


205 


210 


215 ‘ 


220 


225 


WRITE < 7 > 2 5 0 i FUNCTN (IAE),IAE 
250 FORMAT (1H0,A7,15H FUNCTION ( I AE»> 11, 1H ) ) 

WRITE (7,260) ia,)IIl),I>l,t| 

260 FORMAT (15H0INITIAL STATE<//(3H Xt,Il»4H> • ,G13.6>> 

WRITE(7,270) IDENTS(2) 

270 FORMAT ( 1H0, A7) 

RETURN 

C 

C****************************************** **************** *********** 

C 

300 CONTINUE 

C THIS IDENTIFIES THE BASIC RECEIVER STRUCTURE ' (THRHLD, OPT, SUBOPT ) 

CANO REINITIALIZES, AS NECESSARY, THE FOLLOWING RCVR DATA 
CIR (NEGATE ONLY), NOAC, NOKLMN, NOLOE, BRC VR, DELBL, TETHRO 
ITIT-MIN0(IRCVR,2) 

C 

C NEGATE IR WITH THE FOLLOWING FOR NONAOAPT IVE RECEIVER 
IR-ISIGN(IR,IRSIGNI 
C 

RETURN 

C 

C**++ ♦♦++♦**♦♦***♦**♦*****+♦**+* +**♦*+****+♦*♦****♦*♦♦***+++♦♦♦*♦***** 

400 CONTINUE 

C THIS OUTPUTS BASIC RECEIVER DATA QF INTEREST 
WRITE (7, A 10 ) (IDENTS(I),I-3,A),IR,NG,NS 
410 FORMAT (1HO,A8,4HRCVR/1HO, A8, 6HDES IGN/5H ( IR-, 12, 4H, NG-, II, " 

* 4H, NS •/ 1 1, 1H ) ) 

WRITE (7,420 ) ( IOENTS ( I ) , 1*5,6 ) 

. 420 FORM t AT ( 1H0, A 8 / 1H0, A7/ ) 

RETURN 

C 

C* ******************************************************** ************ 

c 

500 CONTINUE 

C THIS SETS-UP THE MSET-LOOP 

ICOUNT-O “ ' 

DO 510 I*l,LGHAX 
Y YMI ( I ) *1 ,E322 
510 YYHAU)— 1.E322 

RETURN 
C 

C ********************************************************* ************ 

c 

600 CONTINUE 

C THIS SETS-UP THE LG-LOOP FOR THE (MSET)-TH SERIES OF SETS 
RETURN 
C 

c* **************************************** **************************** 

c 

700 CONTINUE ~ ~ “ 

C THIS SETS-UP THE K-LOOP FOR THE (LG)-TH SET OF KM SCANS 
8HLS-AMAX1(1.,1« /BRAT 10 (LG) ) 

BBB-2.4/BHLS 

BRCVR*AMAXl(BRATIO(LG),i;f “ 

BB-2.4/BRCVR 

PDCRIT*PI*BB/0; ' " 

CC»PI*PDCRIT 
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230 


235 


240 


245 


250 


255 


260 


265 


270 


_2 75 


280 ' 


285 


X(7)*X0<?,IAE> 

DUN- GAUSS ( 1.0) 

WRIT£(7,U> 

CALL I N T 1 0 ( 6 H NRUN, NRUN, 1,1 1 
WR I TE ( 7, 705 ) LG, 3R AT 10 < LG ) , BHLS, 8RCVR 
705 FORMAT! 1H , 4X, 3HLG *, 12, 5X, 9HBRATI0 - ,G12.5/8H BHLS - ,G12.5,5X,'" 

♦8H8RCVR - , G12. 5 ) 

CALL INTIQ(6H KH,KH,1,1) 

WRITE(7,710I (TITLEH1),I*1.NS) 

710 FORMAT ( 6H0 K,4X»5HCSNRT,4X»5HQTY , 9 <3X, A6 ,2X ) ) 

DD 712 1*1, NS 

" EHEANt 1 ) -0. " ----- ; — 

712 EMS ( I ) *0. 

LASTCT-0 

ICOUNT *0 
DO 730 IPA*1,NS 
DO 720 JPA*1,NS 

PA1IPA,JPA)*0. ‘ ' ‘ ‘ ‘ ’ . 

720 CONTINUE > 

730 CONTINUE 
RETURN 

C ' ' 

C***+*++ ******* ******* ******♦**+*********** ***♦***♦*♦**♦***♦++ ******** 

C 

800 CONTINUE 

C THIS INITIALIZES THE K-TH SCAN 
SEP.SPACE 
RETURN 
C 

C ************************ ********************************+*** ********* ‘ 

C 

900 CONTINUE ' ’ 

C THIS SAVES/PREPROCESSES DATA FROM THE K-TH SCAN 

IF(ICOUNT.NE.LASTCT) SEP-ABORT ’ 

00 905 1*1, NS 

905 ES ( I ) "X ( I )-XS ( I ) " * 

I F < NS . G E.7 1 £S(7)-ABS<X (7 ) J-ABS ( XS 1 7) ) 

IF < NS . GE . 8 ) ES(8)*A8S(X(8))-ABS(XS<6)) ' ~ " ' ‘ 

BETTA-(180./PI)*Xt7) 

C0L8-THERR " 

IF ( IRCVR .NE. 1) C0L3« SQRT ( P PD IAG (2 ) ) 

IF (IRCVR .EQ. 1) CALL OF LTRKCOL 8, THERR, FL10 f " ” 

IFf INRUN.EO.NSTART,ANO.LG.EQ.1).OR.(K.£Q.KM)) GOTO 906 
' GO TO 950 ‘ ..... 

906 WRI TE{ 7, 910 ) K, CSNRT, < X t I) , 1*1, NS ) 

910 ' FORMAT ( 3H0 , 1 3 , 2X, G10.3, 5H X* , 2X, 9 ( G10. 3, IX ) ) 

WRITE (7,9 20) ( XS ( I ) , I *1, NS ), 

920 FORMAT ( 18 X, 5H XS* , 2X, 9 ( G10. 3, IX ) ) 

WRITE(7,930) { ES ( I ) , I*1,NS ) 

930 FORMAT (18X,5H ES* , 2X, 9 (G10. 3,1X) ) 

IF(IRCVR.EQ.l) WRITE (7, 940 ) C0L8 
9.40 FORM AT (8X, 15HUNFILT. ES(2>* ,13X,G10.3) 

950 XDATUH(K) -BETTA _ _ . ; 

TKESER(K)-THERR ' - - - -- - 

LAS TCT* ICOUNT 

"IF(K.LT.KSTART)RETURN 

DO 960 1*1, NS 



O is 
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..290, 
295 
300 
305 
310 
' 315’ 
320 
325 

-.330 

' : N‘ 

335 
3 AO 


EMEAN ( I ) “EHEAN ( I ) + ES (I ) 

960 EMS(I)*EMS(I)+ES(I)**2 
RETURN 
C 

C* ♦ + ♦♦ + + ♦ + ♦♦***♦♦** + ** **^*^*^*4^t***** ****** ************************** 

c ' 

1000 CONTINUE 

C THIS SAVES/PROCESSES/OUTPUTS DATA FROH THE (LG)-TH SET OF KH SCANS 
DO 1005 I*1*NS 

EHEAN(I)«EHEAN(I)/KHNET -------- -- 

EMS(I)«£MS(I)/KHNET 

ERHS(X)«S0RT(ENS(I1) “ ” “ 

ESD(I)«SQRT(£MS(I)-EMEAN<I)**2) 

1005 CONTINUE 

XWICQUNT 

TCQUNT-100.*XW/KH ... 

WRI TE ( 7*1009 ) 

1009 FORMAT { 3 { / ) ) ’ " ~ “ 

WR I TE ( 7* 10 10 ) KMNET 

1010 FORMAT (3X.26HERR0R SAMPLE STATISTICS! 1*13, 9H SAMPLES ) ) 

IF (IRCVR.EQ.l) WRITE (7*1015) 

1015 FORMAT (5X* 31HTHRESHOLO RCVR (FILTERED ERROR)) 

, WRITE(7*1020)(TITLE1(I)*I»1*NS) 

1020 FORMAT(1KO,20X,AHQTY * 9 ( 3X* A6* ZX )T 

WRITE (7* 1030) (EMEAN(I), I-1,NS) 

1030 FORHAT( 1H0* 16X*BHEMEAN ■ *9(610,3*1X1) ’ ” 

WRITE(7*10AO)(ERMS(1)*I«1*NS) 

10A0 FORMAT (18X*7HERMS - , 9 ( 610. 3* IX) I 

WRITE (7* 1050) ( ESDI I), 1-1* NS I 

1050 F0RMAT(19X*6HES0 « * 9 <610. 3* IX) > 7 

IF (IRCVR.EQ.l) WRITE (7*1060 JTCOUNT 
1060 FORMAT ( //1H , AX, F7 . 2* 22HX OF SCANS ARE ABORTED) " 
IF(IRCVR.NE.1)WRITE(7*1070)(GQGT(I*I)*I*1*NS) 

1070 FORHAT(5(/)*AX*35H ON LAST SCAN, DIAGONAL OF GQGT WAS/26X 
C9 ( G10.3* IX ) } 

DO 1071 I-1*NS ' ' ~ 

EEM£A(LG*I)«EMEAN(I) 

EERMS(LG*I)-ERMS(I) " 

1071 EE$TD(LG*I)-ESDU) 

DO 1072 I-1*KM 

YYMI(LG)*AHINltTHESER<I)*YYMI(LG) ) 

1072 YYHA(LG)-AMAX1(THESER(I)*YYMA(LG)) 

TTCO(LG) »TCOUNT 

IFILG.NE.l) RETURN' 

YMIN«YMAX-0. 

WRITE(7*11) 

CALL INTI016H NRUN* NRUN* 1*1) 

CALL PL0TR(XDATUM»THES6R»KM,Xf}AME»YNAHE»YMlN*YHAX*0) 

RETURN 

C 

C^ + + *****A«** + *i|.**:**A"A'*** + ** + + 4‘ + ^****AiA,**A-* + * + ****** + *+* ++**4 1 ******#* + # 

1100 CONTINUE 

C THIS SAVES/PROCESSES/OUTPUTS'DAtA FROM "THE (MSET)-TH SERIES OF 

CLGHAX SETS OF KH SCANS 

WRITE ( 7* 11) ” “ ~ ’ ' 

CALL 1NTI0(6H NRUN*NRUN* 1* 1 ) 
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395 


350 


355 


"360 


365 


370 


375 


380 


385 


39 O' 


. 395 . 


WRITE (7.1110! 6HBRATI0/(mLEl<i)/I»l/NS> _ 

1110 'F0RHATUH0/10X/3HQTY / 9 ( 3X / A 6/ 2 X) ) 

WRITE!7/1120)BRATI0(1>/ ( EEKEA ( 1/ I ) / I -1/ NS ) . .. ... 

1120 FORMAT! 1H0/ 7X» 7HEMEANS /9<G10. 3/1X1) 

00 1130 J-2/LGHAX ‘ _ 

1130 WRITE17/1161)BRATI0!J }/ < EE ME A < J, I ) / 1-1/ NS ) 

WRITE<7/1140IBRATI0<1)/ (EERHS ( 1, I) / I -1, NS) 

1140 FQRHAT ( 1H0/ 8 X/ 6HERMS i / 9 ( G10. 3/ IX ) ) 

00 1150 J-2/LGHAX 

1150 WRITE!7/1161IBRATI0!J)/ < EERNS l J/ I ) / 1-1/ NS) 

WRITE (7/ 1160 )BRATIOtl)» ( EES TO < 1/ I > / I -1/ NS > 

1160 FORMAT ( 1HQ/ 8X/6HESTDJ / 9 (G10.3, IX ) ) 

00 1165 J-2/LGHAX 

1165 WRITE<7/1161)BRATI0(J)/<EESTD<J/I)/I-l"/NS) 

1161 FDRMAT(15X,9!G1Q.3/1X>) 

' IF ( .NOT • FILQUT ) GOTO 1199 

_ . WR ITE !7/ 1 1 ) 

WRITE ( 7/ 11701 (DATOUTd )/ 1-1/2) 

1170 F ORMA T 1 13H OUTPUT FILE /2A10/1HJ/) 

WRITE! 7, 1172) DQUT/ DE LT / MT IMES / LGMAX/KM/ TODAY. JBNAN 
1172 FORMAT! 1H / A10/ 8X/ G13.6/ 5X/ 3! 5X» I3/10X ) / A1Q/ 8X/ A10/ ) 

WRITE (7/ 1174 ) IDENTS/KSTART 

1174 FORMAT ( 1H ,6 (1X> A8/ 9X 1/ 6X, 1 3/ 1 

WR ITE ( 7/ 1176) NRUN/DSNR0B/RH0/8ETA/FSC/TSEP' 

1176 FORMAT (1H / 5 X/ 1 2/6X/ 5 <5X/ G13 .6 ) / ) 

' 00 1175 LGN* 1/ L GMAX 

1175 WRITE 17/ 1182 | EEHE(LGN)/E£RM(LGN)/EE$T(LGN)/TTCO( LGN1/YYMIILGN)/ 
*YYHA!LGN),BRATIO<LGN)/LGN 

1182 FORMAT ( 1H / 7 (G13 . 6/ 5X ) / 15 ) 

WRITE ( 17 ) OOUT/OELT/MTIMES/LGMAX/KM/TODAY/JBNAH 

WRITE! 17 ) IDENTS/KSTART 

WRITE (17 INRUN/ OS NROB/RHO/ BETA/ FSC/TSEP 

DO 1190 LGN-l/LGMAX 

1190 WRITE 117) EEME(LGN)/EERn(LGN)/EE$T(LGN)/TTCQ(LGN)/YYHI(L6N}/ ' " 

*YYMA1LGN)/BRATI0(LGN)/LGN _ _ 

IX«IATTACH(6LTAPE20/DAT0UT) 

IF(IX.NE.O) GO TO 1195 

RE AD 120) DUH/DUH/IDUH/IOUH/ IOUH/OUH/ IDUH 
CALL RETURN (6LTAPE20) 

REWIND 17 

. IX-ICATALO!6LTAPE17/DATOUT/2LPW/8RHIGHFILL/2LRP/365) 

GO TO 1196 

1195 CALL RETURN! 6LTAPE20 ) 

REWIND 17 " " • 

IX-ICATALO!6LTAPE17/OATOUT/2LXR,8RHIGHFILL/2LRP/365> 

1196 IF(IX.NE.O) CALL INT 10! 6HIX 1 C A) / I X/l/ 1 ) 

IF(IX.NE.O) STOPWOUTPUT FILE CATALOG NOT. S AT I S FACTORY!* 

CALL RETURN16LTAPE17) 

WRITE (7/1198) ( DATOUT (I )/ I «1/ 2) 

1198 FORMAT! 13H00UTPUT FILE / 2 A10/ 33H IS WRI TTEN/' CATALOGED AND CLOSEO) 

1199 CONTINUE 

00 1103 I-l/NS 

FACTOR-1. 

IF (I.EQ.7) FACTOR-160. /Pl“ 

IFd.EQ.8) FACTOR-. 5/PI 
IFU.EQ.9) FACTOR-. 5/PI ' ' 

YMIN-O. 
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AOO 


A05 


,..A10 


A15 


A 20 


YHAX-O. 

DO 1101 LG1-1,LGMAX 
1101 EEHEUG1) -EERHS (LGl, I) + F ACTOR 
YNAHE1 { 1 ) “YNAMK 1> I ) 

YNAMEl(2)-YNAMlt2,I> 

K1-H001I.2) 

IF(K1.EQ«1)WRITE(?»11) 

IF(Kl.EQ.l) CALL INTI0I6H NRUN.NRUN. 1, 1 » 

IFtKl.EO.O) WR IT E (7* 10 ) 

CALL PLOTR(BRATIO>EEHE* LGKAX* XNAME1* YNAHE1* YHIN* YMAX,0) 

1103 CONTINUE 
RETURN 
C 

C ************************* ♦*♦*****♦♦*♦*♦*****♦++*+++****♦*♦*+*♦******* 

c 

1200 CONTINUE 

.C THIS EFFECTS CLOSURE OF THE SIMULATION RUN 
RETURN . ' 

C 

C ************************************************************** *****+* 

c 

END 
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5 


10 


15 


20 


25 


30 


35 


AO 


45 


50 


55 


SUBROUTINE CONTRL(ISK) . .. 

C 

C THIS CONDUCTS THE MLS SIMULATION THROUGH A. . 

C RNSE VS, FSC STUDY 

REAL LAMOA 

INTEGER XNAHE1(Z)»YNAME1(2),YNAH1(2,9) _ 

INTEGER XNAME(2),YNAME(2), DAT IN (4), D AT GUT (4), 0 OUT 
INTEGER TITLE1!9),FUNCTN(2) . . . 

LOGICAL NQKLHN,NOLOE»NQAC,KALHAN, LOE, TETHRD, MORE, NF IRST, AOAPTV, 

CFILE IN/ FI LOUT . . 

COMMON/ I DDATA/ISIM,IPHLS/IRCVR/IADAP, ITETHR, I PDPT 

COHMON/RCVROO/THAMAX,THAMIN,TS,TR,OHE5A,TF 

CQKM0N/RCVR01/NGMIN, NGH AX/D ELBL / NGM, I R, I AE 

COMMON/RCVR02/ RHOMAX, OTHQ/TDRO, 8Q/WSC0/N5Q(4),NGQ(4) 

COHMON/RC VR03 / PI/F(8,8),FL25(4)/FSAHP,K/KH/TETHRD,NG»NS,JK 

CQMMON/RCVRO4/DELT/EO(0),GOGT{B»8},H(5,8I,ICOUNT/SIGMA 

C OMMQN/RC VR05/N0LQE/N0K LMN, N0AC»GAHAES (5)/R0IAG(J),PHDIAG(8) 

C0MMQN/RCVR06/PPDIAG(8l,RMAT(5/5),PHIt5/5)/PA{ 8, 6 ) » L AMDA (5 ) 

COMMON /RCVR07/T< 130 >,V(130) 

C0MMDN/RCVR08/XSLQE(8),ESL0E18),ES<8) .. 

C0MMQN/RCVR09/BRCVR/BB, POOR IT, CC 

CQMM0N/RCVR10/XS1<8),XS(8) , ' .... 

COMMON/ ML SOOO/A LFA, THE/ THEDQT,ALFAR, THR, THRDOT, B,WSC 

COMMON/M LSQQ1/C5NRT,CSNRF,DSNRDB, RHO, BETA, FSC, LGMAX .. 

COMMON/ MLS 002/DC SNR, CS NR, LG/TPKT/TPKF 

COMMON/MLSO03/FLlOAE< 4/ 2>/FL10(4)/DELTAT(2)»XQ(8,2),YO{4,2) 
C0MM0N/MLS004/BMLS/8BB/MTIMES/MSET/M0RE 
DIMENSION X(8)/THES£R(115)»XDATUM(115!,£EME(13),EERM(I3I 
DIMENSION IDNRSC6),IDASCI<20),IDENTS<6),EE$T(13),TTC0(13)»YYHI(13) 
DIMENSION YYMA (13) . , 

DIMENSION FSCA(13),IF$CA<13) 

DIMENSION EEMEAtl3,9>,EERMS(13,9),EEST0<13,9) . _ 

DIMENSION EHEANt9)/EMS(9),ERHS(9l/ESDl9) 

EQUIVALENCE < EEHE < 1 I , EEHEAi 1,2 )) , ( EERM < 1 ), EERMS (1,2 >) , . . 

*<££ST(1),EESTD<1,2) > 

£QUIVALENCE(THERR/ES<2)> , . 

EQUIVALENCE ( AL FA, X (1 ) ) , ( IS IM, IDNRS ( 1 ) ) , (DOUT, DATOUT (2 ) i" 

DATA YNAM1/8HALF RMSE/8H / 8HTHE RMSE, BHDEGREES , 

*BHTDT RMSE/8H0EG/SEC / 8HALR RMSE,8H / 8HTHR RMSE, 

♦BHDEGREES / BHTRD RMSE/8HDEG/SEC , 8HBET RMSE, 8HDEGREES ,. 

♦6HFSC RMSE/8H HZ , 8 HFSCDRMS E, 8H HZ/SEC / 

. DATA ABORT /1HA/,SPACE/1H //NFIRST/, FALSE. /,ADAPTV/. TRUE,/ 

DATA OATIN/10HMLSSIMDATA,10H200000FDOO,2+0/ 

DATA DAT0UT/10HMLSSIMDATA/3+0/ 

DATA IDASCI/7HCR0S$MP,7HRMSE(T),7HRMSE(B),7KRHS£<F),7H ’ 

♦8H PMLS1 ,BH PHLS2 , 

+8H PMLS3 , 8H THRHLD ,8H OPTIML ,8H SUBOPT ,8H -3 DB ‘ ,8HADAPTIV , 
♦8HNQNADAP , 8KUNTETHRD, BHTETHERE 0, 2H ,8H P0PT1 ,8H P0PT2 , 

♦BH P0PT3 / 

DATA NSTART/ 3/, IRSIGN/I/,KS TART/11 /,FILEIN „ . 

♦/, FALSE,/, PILOUT/, TRUE,/ 

DATA TITLE 1/6H ALFA , 6H THETA, 6HTKED0T, 6H ALFAR, 6HTHETAR, 6HTHRD0T 
C,6H B ,6H WSC ,6HWSCD0T/ 

DATA XNAME/BHSCAN NO.,BH K . . / , YNAME/8HTHES ERR, BHDEGREES / _ 

DATA XNAME1/8H FSC ,8H HZ / 

DATA FUNCTN/7HAZIKUTH,7HELEVAT./ . . _ 
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SUBROUTINE CQNTRL 73/172 TS 
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C - — 

GO TO (100,200, 300, 400, 500,600,700, 800,900, 1000, 1100, 1200), ISW 

I FDRMATUH ) • 

10' F ORMAT ( 9( / ) ) 

II FORHAT (1H1) 

C 

C *♦♦**♦*** +****++**+*+**+++++***4*+++4++***+*+***4*****+***4**4*+4*+** _ 

C 

ICO CONTINUE . 

C THIS IDENTIFIES THE SCENARIO AND REINITIALIZES, AS NECESSARY, 

CTHE FOLLOWING RECEIVER PARAMETERS 

CSIGMA, IAE.DSNRQB.RHO.FSC.BETA.JH.BMLS 

IF ( NF IRST) GO TO 155 - 

NOAC- . TRUE. 

NF IRST *. TRUE. .... 

JBNAH* J08NAHE ( I ) 

ISIM*4 . 

IMOD-1 • 

WRITE (7,110) . .... , 

110 F0RMATU9H1RMSE VS. FSC STUDY) 

CALL L0GID(6HFILEIN,FILEIN,0) . 

IF < .NOT . FILEIN) NSTART-0 

IF(.NOT.FILEIN) GO TO 122 - . 

IX. I ATTACH ( 6LTAPE15.DAT IN) 

IF(IX.NE.O) CALL INTIO ( 6HI X ( AT ) , IX, 1, 1 ) 

IF(IX.NE.O) STOPWINPUT FILE ATTACH NOT SATISFACTORY!* 

WRITE(7, 120) (DATIN(I),I*1,2) . . 

120 FORHAT (23H THIS READS INPUT FILE ,2A10/» 

• 122 CALL L0GI0(6HFIL0UT,FIL0UT,0) 

CALL INTI0(6HNSTART» NS TART, 100,0) • 

NSTDP “NSTART . . . . . 

CALL INTI0I6H NSTOP.NSTOP, 100,0) 

CALL L0GIQ(6HTETHRD»TETHRD,O) -,-L 

' IF ( IRCVR. EQ.l ) GO TO 125 

CALL L0GI0(6HADAPTV, AOAPTV.O) . . . 

125 CONTINUE 

IF ( TETHRD ) ITETHR-2 . 

IF (AOAPTV) GO TO 135 

■ IRSIGN--1 . . 

‘ IADAP«3 

135 CONTINUE . 

DO 145 1*2,6 

I A SC *3+ ( I— 1 )+I ONRS ( I ) +2 . _ ... 

ID ENTS 1 1 ) * IOASC I ( I ASC ) 

145 CONTINUE 

ENCODE (8,150, IDENTS(D) IDASCI (IS IM ), IMOD 

150 FORHAT ( A7, 111 . 

WRITE (7,152) IDNRS.IHOD 

152 FORHAT (1H ,611, IX, Il/I • 

WRITE (7,153) IDENTS . 

153 FORHAT (1H ,A8) 

CALL INTIO < 6H KM, KM, 115,0) 

KSTART*MINO< KM, K START) ’.. 

KMNET*KM-KSTART+1 

FSCMIN*1«/(DELTAT(IAE)+KMNET) 

RE AD( 10, 105 ) LGMAX, (IFSCA< I ) , 1*1, LGHAX ) 

105 F0RMATU4I5) 
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115 WR ITE { 7, 106 ) LG MAX, (IFSCA(I),I-1,LGMAX) - — 

106 FORMAT (9H0LGMAX ■ ,12/1H >13(17,2X1) 

DO 154 I*1,LGMAX .... 

154 FSCA( I) -FSCMIN* IFSCA(I) 

WRITE ( 7> 107) (FSCA(I),I-1,LGMAX) - — - 

120 107 FORMAT ( 1H 13(F7. 3,2X1) 

NRUN-NSTART-1 

D SNRD B* 20 • 

BETA-45. 

125 BMLS-1. .. . 

BRCVR-1. 

155 CONTINUE 

IF(FILEIM) GOTO 150 ... 

130 NRUN-NRUN+1 

WRITE (7, 11 1 . — - — 

CALL INTI0I6H NRUN, NRUN, 1, 1 1 f 

CALL PEALI0(6H0SNRDB,DSNRDB,0) _ . ... - — - 

CALL REAL1016H RHO.RHO.O) 

135 CALL REALI0C6H BETA, BETA, 0) — 

CALL REALIO (6H BMLS,BMLS,0) 

. CALL REALIO <6H 8RCVR, BRCVK, 0) - ■■ 

CALL RE A LI 0( 6H TSEP,TSEP,01 

GOTO 167 - 

140 158 CONTINUE 

. REAO(15,lbO) NRUN,0SNRDB,RH0,BETA,BMLS,BRCVR,T5EP . .. 

IF(E0F(15) 1170,165 

• 160 F0RMAT(15,3G10.3,5X,3G10.3) . . , — 

165 I F( NRUN. LT.NSTART ) GO TO 156 

145 167 IF (NRUN.GE.NSTOP) MORE-. FALSE. .. 

FSC-FSC A (1 ) 

. X0(5, IAE )-X0(2,IAE)-TSEP . 

XO (3, 1AE 1 -0. 

XO ( 6, I Ac 1 *0 . .... . - — • 

150 RETURN 

170 STOP/EOF REACHED ON INPUT FILER . ... . „ 

C 

C ******************** ************************************************* 

c 

155 200 CONTINUE , . . . . . ~ . 

C THIS OUTPUTS BASIC SIMULATION DATA OF INTEREST, SUCH AS 

CTHE ANGLE FUNCTION, INITIAL STATE, ETC. _ . 

WRITE (7, 210) NRUN, DSNRDB»RHO, BETA, BHLS, BRC VR> TS E P 

210 FORMAT! 5K0NRUN, 5X, 6HDSNRDB, 12X,3KRH0,12X,4HBETA> 12X, 4HBMLS, 11X, — .. , 

160 *5HBRC VR, 12X, 4HTSE P/ 1K0, I4,6(6X,G10.31) 

IF ( . NOT ■ FXLOUT ) GOTO 245 ... . — 

1FCNRUN.LE.9) ENCODEflO, 220, D OUT ) IDNRS, 1HU, I MOO, 1H0, NRUN 

220 F0RMAT<6tl,Al, I1,A1,I1) . . _ 

IF (NRUN. GE. 10) ENCODE! 10, 230, DOUT) I DNRS, 1HU, I HDD, NRUN 

165 230 F0RMAT(6I1,A1, 11,12) . _ 

IX-IREQST(6LTAPE17,3L*PF) 

IF(IX.NE.O) CALL INT I D ( 6H I X ( RQ) ,1 X,l, 1 ) , ' _ . .. 

IF (IX. NE. 01 STOPRQUTPUT FILE REOUEST NOT SA’TI S FACTORY* 

WRITE 1 7, 240 1 (OATOUTU), 1-1,2) .... _ .. . . . 

170 240 FORMAT ( 25H0THI S WRITES OUTPUT FILE >2A10) 

245 CALL D ATE ( TODAY ) . . .... 
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175 


160 


185 


190 


195 


200 


205 


210 


215 


220 


225 


250 

260 

WRITE (7;250) FUNCTN <IAE>;IAE 

FORMAT ( 1H0; A7; 15H FUNCTION ( IAE-; 11; 1H > ) 

WRITE (7; 260 ) ( ( I; X ( I ) ) ; I ■ 1; 8 > 

FORMAT (15H0IN1T IAL STATEI//(3H X(;X1;9H) . ;G13.6)| 
WRITE(7;270) I0ENTS(2) ... .- .... 




• 

270 

FORMAT! 1H0;A7) 
RETURN 






C 


C 4 4444 4 444 *44444444* 4 4 4444444 44444444444444444444444* 44444 44444 44 44 4*4 . 

C 

300 CONTINUE 

C THIS IDENTIFIES THE BASIC RECEIVER STRUCTURE <THRHLD;OPT;SUBOPT) 

CANO REINITIALIZES; AS NECESSARY; THE FOLLOWING RCVR DATA 
CIR (NEGATE ONLY); NOAC; NOKLHN; NOLQE ; BRC VR ; DELBL; TETHRD 

ITIT-MIN0(IRCVR;2) . . . - 

C 

C NEGATE IR WITH THE FOLLOWING FOR NONADAPTIVE RECEIVER.. . ... 

IR - I S I GN’t I R; I RS IGN ) 

C 

RETURN ' 

C 

C444444 444 4444444444444444444 4444444444444*4444444444444444 44444444444 

900 CONTINUE . . . 

C THIS OUTPUTS BASIC RECEIVER DATA OF INTEREST 

WRITE ( 7; 910 I ( IDENTS ( I) ; I -3; 9) ; IR; NG; NS .... - 

910 FORMAT ( 1H0; A8; 9HRC VR/1 HO; A8;6HDESIGN/5H ( IR-; 12; 4H; NG»; 11; 

4 9H;NS-;I1;1HI) 

WRI TE ( 7;920 ) ( IDENTS ( I ); I«5;6) 

920 FORMAT (1H0; A8/lH0;A7/> . . 

RETURN 

C 

£44444444444444444444444444444444444444494444444*444*44444449444944444 

C ' . 

300 CONTINUE 

C THIS SETS-UP THE MSET-LOOP 
ICOUNT *0 

DO 510 I>1;LGKAX 
YYMI ( I ) *1. E322 

510 • YYMAtlJ— 1.E322 ... 

RETURN 

C 

£444449444444494944444444444444444444444449994949444444444449444444444 

C 

600 CONTINUE 

C THIS SETS-UP THE LG-LOOP FOR THE (HSET)-TH SERIES OF SETS . 

RETURN 

C ..... 

C 449449944 444494944494444444944444444494444444444444444 444444444444444 

C .. .... 

700 CONTINUE 

C THIS SETS-UP THE K-LOOP FOR THE (LGI-TH.SET OF KM SCANS .. .„ . 

FSC-FSCA(LG) 

X0(8;IAE)»2.+PI*FSC 

X ( 8 I *X0 ( 8; I AE ) 

X(7)«X0(7;IAE) . , . _ 

OUM" GAUSS ( 1.0) 

WRITE ( 7 ; 1 1 > . 
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230 


235 


240 


245 


250 


255 


260 


265 


2 70 


275 


2 80 


285 


.. CALL INTI0I6H NRUNf NRUN j 1/ 1 ) „ 

WRITE(7;705) LGfFSC 

705 FORMAT ( 1H »4X.3HLG*»I2.5X/6HFSC - >G12.5) 

CALL INT 10 ( 6H KM.KM.1.1) 

WRITE17.710) (TITLEl(I)f I«1»NS) - - . 

710 FORMAT (6HQ Kf 4X» 5HCSNRT> 4X.5HQTY , 9 < 3X, A6. 2X ) ) 

DO 712 I-l.NS . 

E ME AN ( I ) -0 • 

712 EMSIII-O. 

LASTCT-0 

. ICOUNT-O - - 

DO 730 IPA*1,NS 

OO 720 J P A»lf NS ... . 

PA( IPAf JPA)*0. 

720 CONTINUE . . . .. . __ . 

730 CONTINUE 

RETURN .... 

C 

C44444444 4444 44 44444444444444444 4444 4444 44 4 444444 44 44 44 444 44 444 44 44 444_ 

C 

800 CONTINUE _ _ 

C THIS INITIALIZES THE K-TH SCAN 

SEP-SPACE .. .... , ... .. 

RETURN 

C 

C 44444 4 44444444444444444444444444444444444444444444444444444*444*44 444 

900 CONTINUE 

C THIS SAVES/PREPROCESSES DATA FROM THE .K-TH .SCAN - .... . 

IFIICOUNT.NE.LASTCTI SEP-ABORT 

DO 905 I “If NS . ... 

905 ES(II*X(I)-XS(II 

IF ( NS.GE .71 ES(7)“ABS(X(7) l-ABS < XS< 7) ) 

IF(NS.GE.8) ES(8I-ABS(X(8))-ABS(XS{8)> 

BETTA»I18Q./PI)*X(7) . _ 

C0L8»THERR 

IF tIRCVR .NE. II C0L8>SQRT<PPDIAG(2) I 
IF (IRCVR .£0. 1J CALL OFLTRKC OL 8f THERR. FL10 ) 

IF 1 1 NRUN. EQ.NSTART. AND. LG.EQ.ll.OR.(K.EQ.KM)) GOTO 906 ...... . 

GO TO 950 

906 HR ITE ( 7f 910 ) K>CSNRTf(X(I)fI»lfNS) . ... 

910 FORMAT ( 3H0 » I3f 2X,G10.3f 5H X« , 2Xf 9 ( G10, 3f IX II 

WRITE<7f 9201 I XS 1 1 ) » I-l, NS I 

920 FORMAT(18Xf5H XS- » 2X,9 (G10 . 3> IX )) 

WRITE t 7f 930 1 ( ES < I ) f I-l/NS I . 

930 FORMA T ( 18Xf 5H ES- > 2Xf 9 ( G10. 3» IX II 

IF f IRCVR. ED. 1) WRITE 17. 940 I COLS 

940 FORMAT! 8X» 15HUNFILT . ESI2I- >13XfG10.3) 

950 XDATUM(K) *K . . ... _J 

THESERIKI-THERR 

LASTC-T-ICOUNT 

I F IK »L T .KST ART ) RETURN 

DO 960 I-l.NS . .. .. 

EHEANI 1 1 -EHEANI I l + ES ( I ) 

960 EMS ( I l-EMS(I)+ES(II++2 . . 

RETURN 

C _ , . .... 
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C****** ************************************* ************************** 

c 

1000 CONTINUE 

C THIS SAVES /PROCESSES/ OUT PUTS DATA PROM THE (LGI-TH SET OF KH SCANS 
290 00 1003 I-l/NS . • ... 

EMEAN(I)-EMEAN(I)/KHNET 

fcMSU)«EMS(I)/KMNET 

ERHS t II -SQRKEMSU ) I 

ESD (I )*SQRT(EMS{II-EMEAN(I)+*2l ' 

295 1005 CONTINUE 

XW* I COUNT 
TC0UNT-100.+XW/KH 
UR ITE ( 7> 1009 ) . 

1009 P ORMAT ( 3 ( / ) ) 

300 WRITE17/1010JKMNET 

1010 FORMAT (5X/26HERR0R SAMPLE STATISTICS* (/I3/9K SAMPLES)) 

IF (IRCVR.EQ.l) WRITE (7/1015) 

1015 FDRMAT(5X,31HTHRESH0LD RCVR (FILTERED ERROR)) 
WRITE(7/1020)(TITLE1(I)/I-1/NS) 

305 1020 FORMAT(1HO/20X/4HQTY / 9 (3X/ A6/ 2X ) ) 

WRITE(7/1030) (EMEAN(I)/ I-l/NS) 

1030 FORMAT ( 1H0/ 16X/ BHEHEAN - /9 ( 610. 3/ IX ) ) 
WRITE(7/104O)(ERMS(I)/I-l/NS> 

10 90 FORMAT (18X/7HERMS • * 9 ( G10 .3» IX ) ) 

310 WRITE(7/1050I(£SDCI)/I*1/NS) .. - . 

1050 FORMAT (19X/6HESD » / 9 (G10. 3/ IX 1 ) 

IFdRCVR.EQ.llWRITE (7/1060 ) TCOUNT . 

1060 FORMAT < / / XH / 4X/ F7. 2/ 22HX OF SCANS ARE ABORTED) 

IF(IRCVR.NE.1)WRITE(7/1070) (GQGT ( I» I ) / I *1/ NS ) . . 

315 1070 F0RMAT(5(/)/4X/35H ON LAST SCAN/ DIAGONAL OF GQGT HAS/26X 

C9(G10.3/1X)) 

DO 1071 I*1/NS 

EEMEA(LG/I)*EMEAN(1) 

EERMS (LG/I) -ERMS (I > 

320 1071 EESTD(LG/X)«ESD(I) 

DO 1072 I-l/KM 

YYMI(LG)*AMIN1(THESER(I)/YYMI(LG)) 

1072 YYMA(LG)*AMAX1(THESER( I )/ YYHA ( LG ) ) 

TTCO(LG) -TCOUNT . 

325 IF(LG.NE.l) RETURN 

YMIN-YMAX-O. . ... 

WRITE (7/11) 

CALL IHTI0(6H NRUN/ NRUN/ 1/ 1) 

CALL PLOTR ( XDATUM/ THESER/ KM/XN AME/ YNAME/ YH1N/ YMAX/O ) 

330 RETURN .J 

C 

C* *+****++****+*+*♦*+ **************♦**+**+♦*♦*****♦+*+*♦♦+*+♦********* 

c 

1100 CONTINUE 

335 C THIS SAVES/PROCESSES/OUTPUTS DATA FROM THE (MSET)-TH SERIES OF 

CLGMAX SETS OF KH SCANS . 

WRITE ( 7/11) 

CALL INTIQ ( 6H NRUN/NRUN/1/1) 

WRITE ( 7/1110) 6 H FSC » ( T IT LEU I ) / I-l/NS ) 

340 1110 FORMAT(1HO/10X/3HQTY / 9 (3X/ A6/ 2X ) ) ... 

■ WRITE <7/ 1120)FSCA( 1) / ( EEMEA ( 1/1 )/ I • 1/NS) 

1120 FORMAT ( 1H0/ 7X> 7HEMEANI / 9(G10. 3/ IX) ) . . 
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345 


350 


355 


360 


365 


370 


375 


380 


335 


390 


3 95 


DO 1130 J »2, L GMAX — 

1130 WRITE(7,1161) F SC A ( J ) , ( E EME A ( J, I ) , I-l, NS ) 

WRITE<7,1140) FSCA(l), ( EERMS (1, I > , I- l, NS ) 

1140 FORMAT i 1H0, 8X,6HERMSJ , 9 (G10. 3. IX ) ) 

DO 1150 J *2, LGMAX . , 

1150 WR I TE (7, 116 1 ) F SC A t J ) , t E ERMS < J , I ) , I- 1, NS > 

WRIT £ ( 7, 1160 ) FSCAU), (EESTD (1, I > » I*1,NS> 

1160 FORMAT ( 1H0, 8X,6KEST0l , 9 ( G10. 3, IX > ) 

00 1165 J-2,LGMAX . _ 

1165 WRITE (7/1161) F5CA(J),(EEST0(J,I),I-1;NS) 

1161 F0RMAT(15X,9(G10.3,1X)> - _ 

DO 1103 I»1,NS 

FACTOR. 1. 

IFtI.EQ.7) FACTOR- 180. /PI 

1FU.E0.8) FACTOR-. 5/PI 

IFU.EQ.9) FACTOR-, 5/PI 

YM IN *0 , 

YMAX-O. ' 

DO 1101 LG1-1, LGMAX 

1101 EEM£(LG1).EERMS(LG1,I)4FACTQR 

YNAME1(1)*YNAM1(1»I) . . ...... 

YNAMEK 2) “YNAH1 12, I ) 

Kl- MOD (1,2) . . 

IF(K1.E0.1)WRITE(7,11) 

IFtKl.EQ.il CALL INTI0(6H NRUN, NRUN, 1, 1 ) .. . _ 

IFIK1.EQ.0) WR ITE 1 7, 10 ) 

CALL PLQTRtFSCA.EE HE, LGMAX, XNAHE1, YNAME1, YMIN, YMAX,Q ) 

1103 CONTINUE 

IF ( • NOT .FILOUT ) RETURN , 

WRITEt7,ll) 

WRITE 17, 1170 ) (OATOUT(I), 1*1,2) ... 

1170 FDRMAT113H OUTPUT FILE ,2A10,1H:/) 

WRITE (7, 1172) DOUT,DELT,MTIMES, LGMAX, KM, TODAY, JBNAH 

1172 FORMAT ( 1H , A10, 8X, G13 . 6, 5X, 3 ( 5X, I3,10X ) , A10, 8X, A10/ ) 

WRITEt7,1174) IDENTS,KSTART 

1174 FORMAT ( 1H ,6 ( IX, A8,9X ) , 6X, I3/> 

WRITEt7,1176) NRUN,DSNRDB,RHO,BETA,FSC, TSEP 

1176 FORMATt 1H , 5 X, I 2, 6X, 6 < SX, G13.6 ) / ) 

00 1175 LGN«1, LGMAX .... . . 

1175 WRITE (7, 1182) E EME t LGN) , EERM ( LGN ) , EEST ( LGN ) ,TTCO t LGN) , YYMI ( LGN) , 

*YYKA(LGN),FSCA(LGN),LGN .. . 

1182 FORMAT ( 1H , 7( G 13. 6, 5X ) , 15 ) 

WRITE (17 ) DOUT,OELT»MTIMES, LGMAX, KM, TODAY, JBNAM 

WRITEI17) IDENT S, KSTART 

WRITE (171NRUN, DSNRDB,RHD, BET A, BHLS,BRCVR, TSEP, 

DO 1190 LGN*1, LGMAX 

1190 WRITE (17 ) EEME(LGN),EERM(LGN),EEST(LGN),TTCO(LGN),YYMI(lGN), . .. .. 
♦YYMA(LGN),FSCA(LGN)»LGN 

IX.IATTACH(6LTAPE20, DATQUT) ... _ 

IF(IX.NE.O) GD TD 1195 

READ(201 0UM,DUM,I0UM,IDUH,IDUH,DUM,I0UM _ .. 

CALL RETURN(6LT APE20 ) 

REWIND 17 . 

IX*ICATAL0(6LTAPE17,DAT OUT, 2LPW, 8RHIGHF ILL, 2LRP, 365) 

GO TO 1196 

1195 CALL RETURN (6LT APE20 ) 

REWIND 17 
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400 IX»ICATALO(6LTAPE17,OATOUr>2LXR,8RHIGHFUL,2LRP,365> .. 

119f> IF ( IX.Nt .0 ) CALL I NT 10 ( 6HIX ( CA ) , I X, 1, 1 ) 

IF(IX.NE.O) STOP ROUT PUT FILE CATALOG NOT SATIS FACTORY* 

CALL RETURN (6LTAPE17) 

WRITE (7,1198) (OATOUTU), 1-1,2) . . .. 

405 1198 FORM ATI 13H0 OUT PUT FILE ,2A10,33H IS WRITTEN, CATALOGED AND CLOSEO) 

RETURN 
C 

(>***++♦ ,*♦»+++*+++*♦♦*♦*♦ *+*******♦**+♦+++*♦*++*♦*** *♦♦*+*♦♦♦**+♦♦+♦♦, 

C 

410 1200 CONTINUE . 

C THIS EFFECTS CLOSURE OF THE SIMULATION RUN 
WRITE <7>11 > 

RETURN 

C 

415 C ♦***+*♦**♦*******♦*♦**♦**+*+♦*♦**+*♦+**+**♦*♦******♦+**♦**♦*♦*♦♦* t**+ 

C 

END 

45000B CM STORAGE USED 13.054 SECDNOS 
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- 50 


55 


SUBROUTINE C QNTRL 73/172 TS 


FTN A.6+A52 05/17/79 ' 17.19.25 PICE 1 


c 

C TH 
' C RMS 
C 


SUBROUTINE CONTRL(ISW) 

IS CONDUCTS THE HIS SIMULATION THROUGH A 
E VS. FSC STUDY ’ ' " 


'■■REAL LAHOA 

INTEGER XNAHE1(2),YNAMS1(2),YNAM1C2,9) 

'"INTEGER XNAME (2 ) ,YNAHE( 2), DATIN(A), DAIOUTIA I.DOUT ' ' 

INTEGER TJTLE1(9),FUNCTN(2) 

LOGICAL NDKLMN,NOLOE, NOAC, KALKAN,L0E,TE THRO, MORE, NFIRST.ADAPTV, 

CF ILEIN, FlLOUT 

" COMMON/1UOATA/ISIM, I PMLS, IRCVR, I ADAP, IT ETHR, I POPT ' 

CdHMON/RCVROO/THAMAX,THAMIN,TS,TR,OMEGA,TF 
CONMQN/RCVP01/NGMIN,NGMAX,DELBL,NGH> IR.IAE 
C0MMUN/RCVR02/R HOMAX, DTHO, TORO, BO , WS CO, NSO l A > , NGOI A > 

' "COKM0N/RCVRO3/PI, F ( 6> 8 1 , P L25 < A ) , PS AMP, K, KM, TETHRO, NG, NS, JM 

COMHCM/RCVROA/DELT, tO(8>,GQGT<8,6),H<5,8I,ICOUNT,SIGMA 
" "'COMMON /RC V R05 /N OLQE, NOKLMN, NOAC/GAHAES ( 5),R0IAG(5),PMDIAG(8) ' " ' 

COMMON /RCVR06/ P PDI AG (8),RMATI5,5),PHI{5,5),PA(8,8) , LAND A { 5 ) 

' COMMON/RCVRO7/T(130),V(13O) 

CUHMON/RCVROe/XSLOEt 8)>ESLUE(8),ES(8) 

‘ CDMM0N/RCVR09/BRCVR, BB, POCRIT,CC • 

C0MMDN/RCVR10/XS1(8),XS<8) 

” COKMCJN/MLSOOO/ALFA,TH£,THEOOT,ALFAR,THR,THROOT,B,WSC 

COMMON /MLSU01/CSNRT,CSNRF,DSNRDB,RK0»BETA,F$C,LGMAX 
' COMMON/ MLS002/DCS NR, C SNR, LG»TPKT,TPKF 

CUMMQN/MLS003/FL10AE t A,2)»FL10CA) , OELT AT (2 1 , XD( 0 , 2 ) , YO I A, 2 ) 
COKMON/MLSOOA/BMLS, BBB,MTIKES,MSET,MORE ' . _ . . 

DIMENSION X(8I,THE$ER(115!,XDATUM1115),EEM£(13),EERM<13) 

" DIMENSION IDNRS(6),IDASCI<20),IC I ENTS(6),EEST(13),TTC0(13),YYMI<13) 
DIMENSION YYHA 1 13 ) 

•DIMENSION FSCA(13),IFSCA<13) ' ~ ” .... 

DIMENSION EEMEAI13, 9), E ER MS 1 13# 9 ) , E6STD 1 13. 9 ) 

DIMENSION EMEAN(9],EMS(9)»ERMS<9),E5D<9» * ‘ ' 

EQUIVALENCE <EEME(1),EEMEA(1,2I ),(EERM(1),EERMS(1,2) ), 

' *(EESTtl)>EESTD(li2J ) ’ ' ' ~ 

cQUIVALENCE(THERR»ES(2)) 

~ EQUmUNCE~(ALFA,X(l)l,<lSIMjIDHRSU))»<OOUT,DATOUT(Z)> ' ' ' 

DATA YNAM1/8HAL F RMSE,6H , 8HTKE RMSE, 8HDE GREE S , 

"♦8HTDT RMSE,8HDSG/SEC’,8HALR RMSE,8H , 8HTHR RMSE, 

♦8HDEGREES > 8HTRD RMSE, 8H0EG/SEC , 6HBET RMS E , 8HDEGREE S , 

-A8HFSC RHSE78H HZ ' ,8HFSCDRMSE» 8H HZ/SEC / 

DATA AB0RT/1HA/,SPAC£/1H /, NFI RS T/ . FALSE ./, ADA PTV/.TRUE. / 

— DATA DATIN/10HMLSSIMOATA,10H2CQOOQFOOO,2*0/ ' ' 

DATA DAT0UT/10HMLSSIMDATA,3+O/ 

“DATA *1DASCI/7HCR0SSMP,7HRMS£(T),7HRNSE<B),7HRHSE<F),7H ' , ' 

*8H PMLS1 ,6H PMLS2 , 

' "*8H" PMLS3 j6H~THRHLD , 8 H' OPTIML" i BH" SU80PT ,8H -3 DB ,8HADAPTIV> 
A8HN0NADAP > BHUNTE THRO/ 8HTETHER ED, 2H , 8H P0PT1 , 0 H P0PT2 , 

•-18H P0PT3 "/ ■ ... 

DATA NSTART/3/, IRS IGN/1 / ,KSTART/ ll/» F IL EIN 
■ */. FALSE. /.FlLOUT/. TRUE./ • ’ ' ’ ” ' 

DATA TITLEI/6H ALFA ,6H THETA, 6HTHED0T, 6H ALFAR, 6HTHETAR, 6HTHRDCT 

C> 6H ' B ' ,6H 'WSC ,6HWSCD0T / ' 

DATA XNAME/8HSCAN NO.,BH K ' /, YNAME /BHTHES ERR,6HD EGREE S / 

" DATA XNAME1/8H FSC »8H 'HZ / 

DATA FUNCTN/7HAZIKUTH, 7HELEVAT,/ 


OCX' 

271 - 3 -.. 

8|" 

--33 r* ■ 
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60 


65 


70 


' "'75 


80 


"85 


90 


95 


100 


'105 




SUBROUTINE COMRL 73/172 TS 


FIN 9.6+952 05/17/79 17.19.25 


C 

60 TO (ICO, 200*300*900, 500, 600, 700, 800, 900, 1000, 1100, 1200 >, I SW 

I FURHAKlH ) 

10 FGRMAT(9(/)) 

II FORMAT UH1) 

c ■' ’ " " ‘ ' 

************************* *f*-***4/t***:**^*****t ********** *********** 

c ... • 

100 CONTINUE 

■ - ■ C THIS IDENTIFIES THE SCENARIO AND REINITIALIZES* AS NECESSARY* 

CTHE FOLLOWING RECEIVER PARAMETERS 

CSi6KA,IAE,DSNRD6,RH0,FSC*8ETA,JM*BHLS 

lF(NFIRST) GO TO 155 

NOaC«.TRUE. ■ ........ 

NFIRST* .TRUE, 

J8NAM- J08HAME ( I )' " ' ' ~ ‘ ” - ' ' " — ‘ 

IS IM* 9 

’ IM00-2 — ‘ 

WRITE C 7, liC I 

" 110 F0RMAT(19H1RMSE VS. FSC STUDY) 

CALL L0GI0(6HFILEIN,FUCIN*0) 

IF ( .NUT • F ILE IN 1 NSTART-0 
1FI.N0T.FILEIN) GO TO 122 

IX-IATTACH(6LTAPE15,DATIN1 

IPIIX.NE.O) CALL INTI0(6H1X(AT),IX,1,1) 

' If (IX.NE.O)STOPWINPUT FILE ATTACH NOT SATISFACTORY* ’ 

WRITE (7*120) (OATIN( 1 1 , 1«1, 2 ) 

120 ' F0RMAT(23H' THIS READS INPUT FILE ,2A10/) " ' “ ~ 

. 122 CALL L0GI0(6HFIL0UT»FIL0UT*0) 

CALL' INTI 0 C6HNSTART, NST ART* 100,0) 

NSTOP »NST ART 

CALL" INTI0(6H'NST0P, NSTOP, 100,01 

„ CALL L0GI0(6HTETHRD*TETHR0*0) 

T ■" IF(IRCVR.EO.l) GO TO 125 - - - - 

CALL L0GI0(6HA0APTV»ADAPTV*0) 

" ""125 " CONTINUE — 

IF ( TfcIHRD) ITETHR-2 

' ' ” IF ( ADAPTV) GO TO 135 1 ““ •" " 

IRSIGN--1 

" " 1A0AP-3 • 

135 CONTINUE 

DO 195 I *2* 6 “ “ 

IASC*3*(I-l)+I0NRS(I)+2 

IDENTStI)«IDASCI(IASC) ' 

195 CONTINUE 

bNCODE(6*'150»IDENTS(ll) IOASC I ( IS IH) , IMCD ' " 

150 FORMAT (A7*ll ) 

WRITE' (7,152) 1DNRS, IMOO 

152 FORMAT <1H ,611, IX, II/) 

WRITE {7,153) IDENTS - 

153 FORMAT (1H , A8 > 

. CALL INT ID < 6H KH, KM, 115,0) " ' 

KSTART*MIND(KH,KSTART| 

“ ~ 'KMNET*KM-K$TART+1 — 

FSCMIN*1./<DELTAT(IAE)*KMNET) 

■ ' RE AO ( 10, 105 > LGMAX, ( I FS CA ( I ) , I»l, LGMAX ) . - - - 

1C 5. F0RMAT(19I5) 
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115 


~ 120 


125 


130 


135 


150 


155 


' 150 


155 


• 153 


165 


170 


SUBROUTINE CONTRL 73/172 TS FTN 5.6+552 05/17/79 17.19.25 


WRITE (7, 106) L G M A X / ( I FSCA 1 1 ) , 1 -1, LGHAX) 

‘ "106 ‘ FORMAT (9H0LGNAX ■ ,I2/1H ,13(17/2X1) 

00 155 I *1, L GMA X 

155 FSCA ( 1 1 -FSCMIN+IFSCAt I) 

WRITE (7, 107) IFSCA(I),I»1,LGHAX1 

107 FORMAT (1H 13(F7.3,2X1) 

NRUN-NSTAKT-1 

" ’ ' ‘ 0$NADB«2G. ’ ‘ ' • 

RHOO.5 

BETA-55, 

BMLS-1. 

BRCVR‘1. 

rsEP-i . 

" 155“ ’CONTINUE " ’ ’ 

IF(FILEIN) GOTO 158 

“ ” NRUN-NRUN+1 

WR1TE(7,11) 

‘ — ’ "CALL ’INTI0(6H "NRUN,NRUN,1,1) 

CALL R2ALIO(6HOSNRDB,DSNR0B,O) 

' ’ - CALL REALI0I6H RHO,RH0,0) 

CALL REALI016H BETA, BETA, 0) 

... .. CALL’ REALIO 16H BMLS,BMLS,0) 

CALL REALIO I 6H BRC Vft, BRC VR, 0 ) 

CALL REALIOfAH ' TSEP,TSEP,0) 

GOTO 167 

’ ' ■'”158 ’CONTINUE ... 

RE AO (15, 160) NRUN»OSNRDB/RHQ,BETA»BMLS»BRCVR,TSEP 

” IF(E0F(15> >170,165 ’’ ... 

. 160 FURMAT(15,3G10.3,5X,3G10.3) 

165 IF(HRUN.LT.NSTART) GO TO 158 

167 IF (NRUN.GE.NSTOP) MORE-. FALSE. 

...... - — fSC*FSCA(1) ' " 

XO(5,IAE)»XO(2,IAE)-TSEP 

— xo(3,ia£)«o; - 

X0(6,IAE)-0. 

RETURN * ‘ 

170 . STUPFtOF REACHED ON INPUT FILER 

C++**++*+***+*******++ + , + .** + + 4 , + * + ****, + + * + + + ***** + * + * ***************** 

20U CONTINUE 

“ - C THIS OUTPUTS’BASIC’SIMULATION DATA OF ’INTEREST, SUCH AS ' 

CTHt ANGLE FUNCTION, INITIAL STATE, ETC. 

* WRITE17/210) NRUN/DSNRDB,RHO,BETA/BMLS» BRC VR, TS EP 

210 FORMAT! 5H0NRUN, 5X, 6H0SNR0B, 12X, 3HR HO, 12 X, 5HBET A, 12X, 5HBMLS, 11X, 

•- • ♦ 5HDRCVR,12X,5HTSEP/1HC» I5,6(6X,G10.3) ) " ’ ’’ 

I F ( • NOT. FI LOUT ) GOTO 255 

IF(NRUN.LE;9)’ENCOOE(10;220,OOUT) IDNRS,1HU,IM0D>1H0,NRUN ~ 

220 FORMAT (6I1/A1, Il/Al, ID 

• • IF I NRUNS GE.1Q ) ’ ENCO DE (10, 230 , DOUT ) ’ IDNRS/1HU, IKOO, NRUN ’ ” ’ 

230 FORMAT ( 611, Al, II, 12 ) 

- ’ IX*IREQST(6LTAPE17,3L»PF> 

IF(IX.Nt.O) CALL INTI0(6K1X(RQ),IX,1,1) ■ 

IF (IX.NE.’O) STOP ROUT PUT ’F I LE” REQUES T NOT' SATISFACTORY* " 

WRITE ( 7,250) ( D ATOUT (I), 1-1,2) 

250" FORM AT ( 25H0TH I S WRITES OUTPUT FILE ,2A10) ’’ ’ ’ 

255 CALL OATE(TODAY) 
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175 


ISO 


185 


190 


195 


2 00 


205 


210 


215 


220 


225 


SU8R0UT I ht CONTRL ' "75/172" TS‘ 


FTN 9, 6+A52 


05/17/79 "17.19.25 PAGE A 


WRITE (7/250) FUNCTN (IAEI/IAE 

250 FORMAT (1HG/A7/15H FUNCTION t IAE*z I1/1H) > 

WRITE (7/260 ) (<I/X<I)l/I«l/8) 

' ‘ "• 260 ' FORMAT (15H0INITIAL STATEi//(3H X(/I1/4H) ■ /G13.6))’ 

WRITE ( 7/270) ID ENTS ( 2 ) 

270 FORMAT (1H0/A7) 

RETURN 

C 

C4+444+++4++4444+44444444444444+44+4+44444+4++44++4++4**************** 

C ■ ■ ' 

3C0 CONTINUE 

' ' ■ ■ C THIS IDENTIFIES THE BASIC RECEIVER STRUCTURE (THRHLD/ OPT/ SUBOPT ) ' 

CANO REINITIALIZES/ AS NECESSARY/ THE FOLLOWING RCVR DATA 
CIR (NEGATE ONLY)/ NOAC/NOKLMN/NOLOE/BRCVR/DELBL/TETHRD 
ITIT-MlN0(IRCVR/2) 

“ ' ' ' c 

C NEGATE IR WITH THE FOLLOWING FOR NONAOAPTI VE RECEIVER 

IR»ISIGN(1R/IRSIGN) ’ ” 

C 

" RETURN ' “ ” 

C 

C4+4****++4**4**4+4++++4*+*******4*4+*+*+**+4**4*+**+4+4**44+*+4+*+*+* 
AGO CONTINUE 

■ • * ‘ C THIS OUTPUTS BASIC RECEIVER DATA OF INTEREST 

WRITE (7/ A10) (IDENTS (I )/I-3/A)/IR/NG/NS 
■’ •* A10 FORMAT (1HO/AB/AHRCVR/1HO/A8/6HDESIGN/5H ( IR*/ 12/ AH/ NG-/ 11/ 

* AH/NS-/I1/1H)) 

• WRITE(7/A20) ( IDENTS ( I ) / 1 *5/6) 

. A20 F0RMATI1H0/A8/IH0/A7/I 

’ RETURN ' ' 

C 

C 4 44444 *4* 4+444 4 + *4 + 4 ++4 + 4*+*4 * + 4 + 44+++4++ + 4* A********************* *4* 

C 

' “ 500 CONTINUE ' ’ 

C THIS SETS-UP THE MSET-LOOP 

ICUUNT*u ‘ " 

DO 510 1*1/ LGMA X 

YYMI (D-1.E3Z2 ' ... 

510 Y YMA ( I ) *— 1 . E3 22 

' RETURN " ' 

C 

C4 4**4*+ + + 4'4 *44 *'*444* + *4*44*A + **4 + * *'** + + *4 ♦** + + ** *♦ +**+ + ♦+ **++* + + +*+♦* 

c 

600 CONTINUE ' ‘ ' 

C THIS SbTS-UP THE LG-LOOP FOR THE (KSET)-TH SERIES OF SETS 

RETURN 

C 

• c 4 *4 4 44 4*4 *44+4 *444*4 444*4***44 **4*4** + **+*4**4444'*444*4 + 4 44* + *+ + ** 4*4 

C 

700 CONTINUE 

C THIS SLTS-UP THE K-LOOP FOR THE (LG)-TH SET OF KM SCANS 

FSC»FSCA(LG) • - • - 

X0(8/IAE).2,*P1+FSC 

X(6)*XO(8/IAE) ' " 

X ( 7 1 ■ XO ( 7/ I AE ) 

DUM«GAUSS(1.0) "* '• " 

WR ITE (7/ 11 1 
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23 0 


. 235 


'"250 


255 


2 50 


255 


' 260 


265 


• 270 


275 


280 


285 


SD3R0UT1NE CQNTRL 73/172 ~'TS FTN 5.6+552 “ 05/17/79" 17.19.25" 


CALL INTI016H NRUN* NRUN* 1/ 1 1 

* “ ‘ WR1TE(7,705) LG.FSC ' 

705 FORMAT! 1H > 5 X, 3HLG-, I2> SX, 6H FSC - /G12.5J 

-■ 'call INTI 0 1 6H 'KfWKMil.il 

WR I T 1 1 7. 710 ) (TITLE1 (I). W.NS) 

"710" ' FORMAT! 6H0 ' ' ' K. 5X> 5HCSNRT, 5X, 5HQTY ". 9 (3X. A6." 2X ) 1 

DO 712 I-l.NS 

EMEAN1I1-0. 

712 EMSflJ-Cr. 

"" — ; LASTCT'O 

ICOUNT'O 

* ' ~ DO 730 IP A • l.NS ~ ~ 

DO 720 JPA-l.NS 

PA(IPA,JPA)«0. ‘ “ ' ' ~ 

720 COMINUc 

730 — CONTINUE 5 “ 

RETURN 

C+»+ +**♦*+ +*+*♦+♦* **♦+**+*****+++**♦*+♦**++****+*♦*****+♦♦+♦* ++ ++♦*+*+ 

800 CONTINUE 

■ " C THIS INITIALIZES THE 'K-TH ’S C AN "" 

SEP*SPACE 

RETURN "• 

C 

— C ♦ (‘♦♦**+****** ***********♦♦♦ + * + ******* *++♦*+♦***+*****♦♦+*+ ++♦♦*+♦*++* 

C 

900 ■' CONTINUE “ 

. C THIS SAVES/PREPROCESSES DATA FROM THE K-TH SCAN 

... "IFIICOUNT.NE.LASTCTI "SEP*AB0RT 

X5 17 )»0.5*PI 

XS181-0.0 - 

DO 9o5 I-l.NS 

90s- bS(i)*xm~xsm -• — • . 

IP 1NS.5E.7) ES ( 7) -ADS t X { 7 ) J -A B S < X S (711 

1F(NS.GE.8)' ES!0)«A8S!X(S))-ABS(XS!8)) * " ’ 

BETTA*!ie0./PI)*X(7) 

- C0L8*THERR ‘ ' ' ' ” ” 

IF (IRCVR ,NE. 1) COL8-SORT!PPOIAG(2)) 

.. .... _. IF (IRCVR' .EO.- 1) CALL' OF LTR1 (C0L8.THERR. FllO ) ' ' ' ' 

IFUNKUN.fcQ. NSTART.AND.LG.EQ.il. OR. IK. ED. KH1) GOTO 906 
_ .. G[J - TD 950 - - ■ - 

9C6 WRITE (7/910) K. C SNRT. (X(I)jI*l»NS> 

910 FORMAT OHO ' . 1 3 > 2X > G 10. 3. 5H X* . 2X. 9! G10, 3/ IX I J ' ' ’ 

WR I T E 1 7. 920 ) ( XS ( I ) > I * 1. NS ) 

920 ’ FQRMAT(1BX»5H'XS»"»2X>9(G10.3.1X1) ‘ 

WRITE 17.930) (ESIIJ. I-l.NS) . 

'• 933 F0RHAT118X/5H ES« . 2X.9 <G10.3ilX) )' “ ’ 

IFlIRCVR.EO.il WR1TE17.9501 C0L8 
95 J F0RMAT(BX,15HUNFILT. ES121* .13X.G10.3) ™ ' ' 

950 XDAT UMl K 1 *K 

' THESER(K)«THERR 

LASTC1-IC0UNT 

- — IFlK.L'T.'KSTARTr RETURN " “ 

DO 960 I-l.NS 

" ”* E MEA N( i )“£MEAN(I)+ES(I) ' 

960 EMS(Il-EMS(I) + ES(Il*t2 
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290 


295 


300 


305 


310 


315 ‘ 


320 


• ‘ 325 ‘ 


330 


335 


340 


RETURN 

C 

c****** ********************** ********4********** ********************** 

C 

1000 CONTINUE 

C THIS SAVES/PRDCESSES/QUTPUTS DATA FROM THE (LG) — T H SET OF KM SCANS 
DU 1005 1 *1 » NS 

tMEANO-EMEANC I) /KHNET 

EMS(i)*EMS(I)/KMNET 

fcRMS(I)-SCRT(EMS(I)l .... 

ESD( I)*S0RT(EHS(I)-EHEAN(I)**2) 

' 1C05 CONTINUE ” 1 ‘ 

XW-IC0UNT 

TCUUNT-100.*XW/KM 

WR IT E ( 7, 1009 ) 

10J9 FORMAT ( 3 ( / ) ) " " ‘ ‘ 

WRITE (7,1010 1KMNET 

1C10 FORMAT (5X,26HERR0R SAMPLE STATISTICS! (,I3,9H SAMPLES!} 

IFURCVR.EQ.il WRITE (7,1015) 

1015 FQRMAT(5X,31HTHRESH0LD RCVR (FILTERED ERROR)) 

WRlTc (7,1020) (TITLEldl, 1*1, NS! 

1020 ' FORMAT! 1HO,20X, 4HQTY , 9 ( 3 X, A6, 2X) ) ‘ 

WRITE(7,1030)( EMEAN(I),I»1,NS) 

' 1030 ’ FORMAT ( 1H0,16X, PHEHEAN ■ ,9(610.3,1X1)' '' 

WRITE! 7,1040 ( ERHS ( I > , I -1, NS ) 

1040' F0RMATUBX,7HERMS " , 9 1 Gift. 3, IX) ) " ' ”' 

WRITE (7, 1050 1 (ESD(I), 1*1, NS ) 

' 1050" FORMAT !19X»6HESD * , 9 ( G10 .3 , IX ) ) 

IF(IRCVR.EQ.l) WRITE(7,1060)TCOUNT 

1 C 60 FGkMAT ( //1H , 4 X, F7 . 2 , 22H7, OF SCANS ARE ABORTED) 

IF (I RCVR. NE.l) WRITE (7, 1070) (6QGT (I, I), 1*1, NS) 

1070 ' F0RMAT(5(/)»4X,35H ON LAST SCAN, DIAGONAL OF GQGT WAS/26X 
C9( GIG. 3, IX) ) 

DO 1C71 I *1,NS 

EEKEA(LG,I)*EMEAN{1) 

' £ERMS(LG,I)»£RMS(I) ' 

1071 EESTO ( LG, I ) *ESD ( I ) 

DD 1072 1*1, KM - " 

YYMKL6) *AMIN1(THESER(I),YYMI(LG) ) 

' 1072 YYMA(LG)*AMAX1(THESER(II,YYMA(LG))'” ” - • - - • • - 

TTCGfLG ) “TCOUNT 

' "' IF ( LG.NE • 1 1 RETURN ‘ 

YMlN*YhAX*0. 

- WR I TE (7, 11 ) • — 

CALL 1NT 10 ( 6H NR UN, NRUN, 1 , 1 ) 

' ‘ call plotr<xoatuh,theser,km,xname;yname,ykin,ymax»o) “ " 

RETURN 

C ****************************************************** *************** 

c ■ ' ’ 1 • 

1100 CONTINUE 

C THIS SAVES/PROCESSES/OUTP.UTS DATA FROM THE (MSET)-TH SERIES OF 
CLGMAX SETS OF KM SCANS 

“ ' " WRI TE( 7, 11 ) 

CALL INT1Q (6H NRUN, NRUN, 1, 1 ) 

WR 1 TE ( 7, 1110 ) 6H FSC , ( TITLEU I ), I-1,NS ) ' 

1110 F0RMAT(1H0,10X,3HQTY ,9(3X,A6,2X) 1 



PAGE 6 


CTLMSFS2 
Page 6 of 8 



A-37 


3A5 


350 


355 


3 60 


365 


' 371 


375 


330 


385 


'■'390 


395 


SUBHOUT Inc CONTRL 


73/172 TS 


FTN A. 6+452 


05/17/79 17.19.25 


PAGE 


WaiTE<7,1120IFSCA<l), (EEMEAt 1, 1) ,I»1,NS> 

112C FORMAT ( 1HG, 7X , 7 HEME AN I , 9 (G10. 3, 1 X ) ) 

OU U3o J-2, LGMAX 

1130 WRITE(7,1161) FS C A ( J ) , ( E6KE A ( J, I) , I-l, NS ) 

WRITE (7,1190) FSCA(1),< EERMS(1,I),I-1,NS) 

11 + 0’ ' FORMAT) 1H0, 3X,6KEftMSi , 9 ( G10. 3, IX ) ) 

00 1150 J - 2, LGM AX 

1150 WRITE (7,11611 FSC A ( J ) , ( EERMS ( J , I) , I -1, NS ) “ 

WRITE (7,1160) F$CA(1),(EESTD( 1,1 1,1-1, NS) 

1160 FORMA T ( 1H0, 8X,6HESTDl , 9 ( G10. 3, IX ) ) * " 

00 1165 J ■ 2, LGM AX 

' 1165" WRITE (7, 11611 F SCA ( J ) , < E£STD( J, I) , I -1, NS ) 

1161 F0RMAT(15X, 9(610.3, IX)) 

’ " ' DQ 1103 I "1, NS ' ' ” ■ • • 

FACTOR-1. 

IF 1 1 .HO .71 FACTOR* 180. /PI' 

1FU.EQ.8I FACTOR-. 5/PI 

IF (I. EQ.,9)' FACTOR-. 5/PI ” 

YMIN-O. 

TMAX-O. 

00 11C1 LGI-1, LGMAX 

•1101 EEME(LG1)»EERMS(LG1,II+FACT0R " ' “ 

VNAME1 (1 )»YNAM1(1, I) 

'■ * YNAME1 ( 2 ) -YNAM1 (2,1) * " ' ’ " 

Kl-MOOI 1,2) 

1F(K1.EQ.1)WR1TE(7,11) ‘ ..... .... 

IF(Kl.EO.l) CALL INTI0(6H NRUN, NRUN, 1, 1 ) 

" IF(Kl.EQ.O) WR ITE ( 7, 1C ) ’ ~ 

CALL PL0TR(FSCA,EEME,LGMAX,XNAM£1,YNAME1,YHIN,YHAX,0) 

’ 1103“CONTINUE ' " ' •"" ‘ 1 ‘ ‘ 

IF(.NOT.FILOUT) RETURN 

WRITE ( 7, 111" ' '• " ' 

WRITE(7,1170) (0ATQUT(I),1-1,2) . 

1170 FORMAT ( 13H OUTPUT FILE ,2A10,1HI/J 

WRITE (7, 1172) DOUT,OELT,MTIMES, LGMAX, KM, TODAY, JBNAH 
1172 FORMATtlH , AID , 8X,G 1 3 . 6, 5X, 3 ( 5X, 1 3, 10X ) , A10, 8X, A10 / ) ‘ 

WR IT E< 7, 1174 ) IDENTS,KSTART 

1174 FORMATtlH , 6 ( 1 X, AB, 9 X ) , 6X, 1 3 / ) .... 

WRITE (7, 1176) NRUN, OS NR 00, RHO, 8ET A, FS C, TSE P 
1176 FORMATtlH , 5X» 12, 6X, 6 (5 X, G13.6 ) l ) ~ “ 

00 1175 LGN-1, LGMAX 

■ 1175" WRITE 17,1182) E EHE ( L GN) , EERHt LGN) , EEST ( LGN ) ,TTCO( LGN > , YYH I ( LGN ) , 
+YYMA (LGN),FSCA(LGN),LGN 

1182- FORMATtlH ,7(G13. 6,5X1, 15) 

WRITE (17) DOUT, DEL T,MTIMES, LGMAX, KM, TODAY, JBNAH 

WRITfc(17)'IDENTS,KSTART ■ — 

WR ITE (17)NRUN,DSNR0B, RHO, BETA, BMLS, BRC VR,TSEP 

DO 1190 LGN-1, LGMAX " 

1196 WRITE! 17) EEME ( L GN >» EERM < LGN ) , EES T ( LGN ) ,TTCOl L GN ) , YYM HLGN ) , 

■■ ■ ♦YYMA(LGN),FSCA(LGN),LGN 

IX-IaTTACH(6LTAPE20,DATOUT> 

IF IIX.NE.O) GO TO 1195 * - 

READ ( 20 ) OUM,DUM,IDUM,IOUM,IOUM,OUM,IDUM ■ 

CALL' RETURNC6LTAPE20) . • 

REWIND 17 

• ' • *IX-ICATAL0(6LTAPE17, OATOUT, 2 LPW, 8RHIGHF ILL ,2LRP,365) ' 

GO TO 1196 
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400 


405 ' 


410 


- - <, 1S 


' 4500GB 


1195 CALL RETURN (6 LT APE20 ) 

""REWIND 17 “ " .... ..... _ 

IX.ICATAL0t6LTAPE17»DAT0UT»2LXR,6RHIGHFILL,2LRP»365) 

1196 IFUX.Nt.OI CALL 1NT IQ( 6HIX ( CA ) , IX, 1, 1 ) - - - 

I F { I X.NE .0 ) STOP/OUTPUT FILE CATALOG NOT SATISFACTORY* 

' "CALL RLTURN16LTAPE17) ~ ' 

WRITE (7,1198) (0AT0UT(I),I.1,2) 

1198 ’ FORMAT (13H00UTPUT FILE ,2A10,33H IS WRITTEN, CATALOGEO AND CLOSED) ~ 

RETURN 

*************** * 4 * ************ ♦***+*+*+♦+*+♦*****♦***+***+♦ +*♦**+*** 

1200 CONTINUE 

C THIS EFFECTS CLOSURE OF THE SIMULATION RUN ■ • • 

WRITE ( 7,11 ) 

RETURN' - 

C 

C + +, * + .* + ** + + + ♦ + .****.* + **♦ + ** + + ***, *** + ** + *** + * + *♦**** + *,,** + *♦* + **,** — 

c 

' ENO ■ : “ " ........ . 


"CH STORAGE USED "* " 15.561 SECONDS 
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SUBROUTINE CONTRL(ISW) 

THIS CONDUCTS THE MLS SIMULATION THROUGH A 
RHSE VS. THETA SEP. 


-• -REAL LAHDA • - •• 

INTEGER XNAME1(2),YNAME1<2),YNAH1(2,9> 

INTEGER XNAMEI2I,YNAHE(2),DATIN(4),DAT0UT(4),D0UT “ ' 

INTEGER TITLE1(9)»FUNCTN(2) 

• LOGICAL NQKLHN, NOLO E» NO AC, KALMAN. LQE,TETHRD»MORE»NFIRST»AOAPTV> -• 
CFILEIN/FILOUT 

• CDMMON/ICDATA/ISIM.IPMLS.IRCVR.IAOAP.ITETHRHPOPT 

COMMON/RC VROO/T HAHAX, TH AMIN, TS,TR, OMEGA, TF 
-• COMMON/ RCVR01/NGMIN. NGHAX. DELBL.NGH. IR. I AE ' 

C OMMON/ RC VR02/ RHOMAX. DTHO.TDRQ, BO, WSCO, NSO (4 ) ,NGO( 4 ) 
C0MM0N/RCVR03/PI,F(B,B),FL23(4)»FSAMP»K»KH, TETKRO. NG.NS. JM 
COMMON/RC VR04/DELT,EO( 8 ),GQGT< 8, 8 ) , HI 5. 8 >, ICOUNT, S IGMA 
•* CDMMON/RCVR05/NQLO£.NOKLMN»NOAC»GAMAE$(5)»ROIAG15),PKOIAG(8) ~ 

C OMMON/ RCVR06/ PPDIAG(B),RMAT(5»5),PHI(5»5),PA(8,8)>LAMDA{5) 

■ COMMON/ RCVRO 7/ T ( 130 ) . V ( 130 ) 

COMHON/RC VR03/X SLOE (BI,ESLQE(8),ES(6) 

“ " C0MH0N/RCVR09/BRCVR. BB> POCRIT.CC ......... 

C0MM0N/RCVR10/XSK8). XS(8) 

• COMMON/MLSOOO/ALFA. THE. THEOOT. ALFAR. THR.THRDOT. B» WSC 

COMMON /MLS 001/C SNRT.CSNRF. DSNROB, RHO. B ETA. FSC.LGH AX 

- - C0HM0N/MLS002/0CSNR.CSNR. LG.TPKT.TPKF ' - - 

C OMMON /ML S003/FL10AE(4,2},FL10(4),DELTAT(2),XO{8,2),YO(4,2) 

COMMON/MLSOO4/BHLS.0B8.MTIMES.MSET.MORE 

DIMENSION X(8>. T HE SERtllS ). XDATUHlllSI.EE ME (13). EE RH (13) 

DIMENSION IDNRS(6).IDASCI(20)»IDENTS(6),EEST(13).TTC0(13),YYHI(13) 

DIMENSION YYMA ( 13 ) 

- DIMENSION TSEPI13) -• -• • • 

DIMENSION EEMEA (13.9).EERMS(13»9).EEST0(13»9) 

DIMENSION’ EMEAN ( 9 ) . S MS ( 9 ) . ERMS < 9) . BSD ( 9 ) 

EOUIVALENCE ( E E ME ( 1) , EEME AU»2 > ), (EE RM <1 ), EERHS ( 1, 2) > » 

4(EEST(1).EESTD(1,2)) ' - 

EQUIVALENCEITHERR.ES (2) ) 

EQUIVALENCE (ALFA, X <1 ) )> < ISIH. IDNRS < 1) ). (DQUT. DATOUT (2 ) ) • '■ 

DATA YNAH1/8HALF RMSE.BH , 8HTHE RMSE. 6HDEGREES , 

+8HTDT RMSE, BHDEG/5EC .8HALR RHSE.8H , 8HTHR RMSE, 

♦BHDEGREES , 8HTR0 RHSE.8HDEG/SEC » 8HBET RMSE, 8H0 EGREES , 

- +8HFSC RMSE.BH ‘ HZ , 8HFSCDRHS E» 8H HZ/SEC ‘ ’ 

DATA AB0RT/1HA/.SPACE/1H /, NFIRST/ , FALSE./, ADAPT V/. TRUE. / 

- - DATA OATIN/IOHMLSSXMDATA, 1OH2OO0OOFOCO, 2+0 / 

DATA OATDUT/lOHMLSSIMOATA.3+0/ 

— DATA IDASCI/7HCR0$SMP,7HRHSE(T),7HRMSE(B),7HRMSE(F),7H • , 

+ BH PMLS1 ,8H PHLS2 , 

- +8H PMLS3— ,8H THRHLD ,8H OPTIML ,8H SUBOPT ,8H -3 DB .8HADAPTIV .' 
♦BHNONADAP » 8HU NTETHRD, BHTETHEREO, 2H ,8H P0PT1 ,8H P0PT2 » 

♦BH P0PT3 • / 

DATA NSTART/3/, IRSIGN/1 /» KSTART/ 11/, TSEP0/-.75/.0TSEP /.25 /, FILE IN 

• ♦/. FALSE, /.FILOUT/. TRUE./ 

DATA TITLE1/6H ALFA ,6H THETA, 6HTHED0T.6H ALFAR.6HTHETAR.6HTHR00T 

■“ C.6H “ B '» 6H WSC ' » 6HKSCD0T / ' ' ~ " ' . - 

DATA XNAHE/6H BETA .8HDEGREES /, YNAME/8HTHES ERR, BHDEGREES / 

- -- DATA XNAME1/BHTHETASEP, 8HDEGREES / ■■ • - 

DATA FUNC TN/7HAZIMUTH, 7HELEVAT . / 
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C 

GO TO (100*200* 300* 900* 500* 600* 700*800* 900* 1000, 1100* 1200) * 1SW 

I FORMAT ( 1M ) 

10 FORMAT (■){/)) 

II FORMAT ( IH1) 

”C 

C**************************************************** ***************** 

c 

100 CONTINUE 

C THIS IDENTIFIES THE SCENARIO AND REINITIALIZES* AS NECESSARY* 

CTHE FOLLOWING RECEIVER PARAMETERS 

CSIGHA*IAE*OSNRDB*RHO*FSC*BETA,JH*8HLS ~ " 

IF(NFIRST) GO TO 155 

NOAC-.TRUE. - - 

NFIRST*.TRUE« 

JBNAH*JOBNAME(I) 

ISIH«2 

‘ •“ ' I MOO *2 — ' ' ' 

WRITE (7*110) 

' 110 FORMAT! 25H1RMSE VS. THESEP SCENARIO/)” ' " ‘ 

CALL L0GI0(6HFILEIN*FILEIN*0I 

— • IF (.NOT.FILEINI NSTART-0 - - 

I F ( .NOT • FILEIN) GO TO 122 

- 4 IX»IATTACH(6LTAPE15*0ATIN) ’ 44 44 

IF ( IX.NE.O) CALL INTI0(6HIX(AT)»IX*1*1) 

- - -• IF(IX.NE.O) STQPWINPUT FILE ATTACH NOT SATISFACTORY!* ' 

WRITE(7» 120) (0ATIN(I)*I«1»2) 

120” F0RMAT(23H THIS READS INPUT FILE'*2AiO/) ~ 

122 CALL LQGIQ(6HFIL0UT*FIL0UT*0> 

* CALL INTIO( 6HNS TART* NST ART* 100*01” ~ 

NSTOP-NSTART 

CALL INTI0I6H NSTOP*NSTOP*lO0»O) - " “ " 4 

CALL LOGIC ( 6HTE THRO, TETHRD*0) 

' -• IF(IRCVR.EU.l) GO TO 125 ‘ 

CALL LQGIQ(6HADAPTV* ADAPT V*0) 

” 125 '—CONTINUE 

IF(TETHRO) ITETHR.2 

-- • IF (ADAPTV)~GO TO 135 44 ' 

IRSIGN— 1 

- IADAP-3 - - - ... 

135 CONTINUE' 

— DO 195 1-2*6 

IASC-3* ( 1-1) +IDNRS (I )+2 

IDENTS(I)»IDASCI (1ASC ) 

.195 CONTINUE 

ENCODE (6, 150* ID ENTS (1 ) ) IDASCK ISIMl/IHOD ' ' 

150 FORMAT (A7* II ) 

— WRITE (7*152) IDNRS* IMOO " 4 ” " ‘ 

152 FORMAT (1H *6I1,IX,I1/1 

' WRITE (7*153) IDENTS 4 

153 FORMAT (1H , A8 ) 

CALL INTIO (6H LGMAX,LGMAX*13,0> 

CALL INTI0(6H KH*KH,115*0) 

44 - — CALL REALX0(6H TSEP0*TSEPQ»0) 

CALL REALIOt 6H DTSEP, DTSEP,0) 

KSTART-HINO(KM»KSTART) - 4 44 4 

DO 159 I"l> LGHAX 
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115 154 TSEP(I)-TSEPO+DTSEP*{ 1—1 > 

KHNET -KM-KSTART+1 ' - ' 

FSCMIN«1./(DELTAT(IAE)+KHNET) 

NRUN-NSTART-1- • '• - - - 

D5NR0B* 20. 

-‘120 “RHQ-0.5 ' 

BETA-45. 

BHLS-1. 

125 _ __155 CONTINUE 

NRUN-NRUN+1 

... - WRIT£(7,U) .... 

CALL INTIO ( 6H NRUN, NRUN. 1, 1 > 

-130 CALL REALI0(6HDSNRDB,DSNRDB,Q) - — 

CALL REALIOUH RHO.RHO.O) 

CALL REALI0(6H “ BETA.BETA.O) * ‘ " 

CALL 1NTI0(6H IFS, I FS# 100*0) I 

— “CALL REALI016H BMLS.BHLS.O) 

’135 CALL RE ALI016H BRCVR, BRCVR, 0) 

158 CONTINUE 

READ (15,160) NRUN.DSNRDB.RHO.BETA.IFS.BHLS.BRCVR * 

IF ( EOF ( 1 5 1 ) 170# 165 

140 — 160 FORK AT ( 15, 3G10. 3, 5X, 15, 2G10 < 3) - - 

165 IF(NRUN.IT.NSTART) GO TO 15B 

167 IF(NRUN.GE.NST0P1 MORE-. FALSE. - 

FSC-IFS+FSCHIN 

.= X0(5/IAEI»X0(2, lAEI-TSEP(l) : 

1.45 XQ(3,IAE)-0. ' __ 

RETURN 

■ 170 ■ STOPWEOF .REACHED' ON INPUT FILE* - _ . . - 

C 

• -150“ 7 C+******************************************************************** 

C 

■ - ■ - 200 CONTINUE - 

C THIS OUTPUTS BASIC SIMULATION DATA OF INTEREST. SUCH AS 

- ~ --CTHE ANGLE FUNCTION. INITIAL STATE. ETC. * * * ~ 

155 WRITE (7.210) NRUN.DSNROB. RHO.BETA.IFS.BHLS.BRCVR 

210 FORMAT (5H0NRUN.12X. 6HDS NROB. 16X.3HRH0. 16X. 4HB ETA. 16X.4HI FSC.16X. 

♦4HBKLS.15X.5HBRCVR/1H0, 14. 3( 10X, G10.3 ) . 12X. 15. 3X, 

*21 1QX.G10.3 ) I ' ' — “ 

1 F ( .NOT • FI LOUT ) GOTO 245 

-160- — IFtNRUN.LE.9) ENCODE < 10, 220, DOUT ) “IDNRS, 1HU, IHOD, 1H0, NRUN - 

220 F0RMAT(6I1, Al.Il.Al.il) 

— IF(NRUN.GE.IO) ENCDOE (10, 230. DOUT J' 1 IDNRS.1HU. I HOD.NRUN ' ’* 

230 F0RMAT(6I1.A1, II, 12) 

-- IX-IREQST(6LTAPE17,3L*PF) ........ 

163 IF (1X.NE.0) CALL INTI 0( 6HIX ( RO ), IX, 1, 1 1 

- IF(IX.NE.O) STO PWOUT PUT FILE REGUEST NOT SATISFACTORY* 

WRITE (7, 240) ( 0 ATOUT t I ) , I -1, 2) 

240 -- FORMAT(23HOTHIS WRITES OUTPUT FILE",2A10> 

245 CALL DATE ( TODAY ) 

170 -- - ■ WRITE (7,250) FUNCTN (IAE).IAE ‘ ■ 

250 FORHAT (1H0.A7.15H FUNCTION (IAE-.I1.1H) > 
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WRITE (7.260) < (I,X(I ) > ,1-1,8) 

260 FORMAT (15H0INITIAL STATE«//(3H X(,I1,4H) • ,613.6)) 

WRITE(7,270) 1DENTS (2) 

270 FORMAT! 1H0,A7) 

RETURN 

' — C ' • ‘ ' • 1 ’ 

C *************************+** ************+***++*****************+***** 

- ' * • c - . . - 

300 CONTINUE 

C THIS IDENTIFIES THE BASIC RECEIVER STRUCTURE (THRHLO, OPT, SUBOPT) — 
CAND REINITIALIZES, AS NECESSARY, THE FOLLOWING RCVR DATA 
CIR (NEGATE ONLY), NOAC»NOKLNN,NOLOE,BRC VR.OELBL.TETHRD “ 

ITIT*HIN0<IRCVR,2) 

C 

C NEGATE IR WITH THE FOLLOWING FOR NONADAPTIVE RECEIVER 
IR-ISIGN(IR.IRSIGN) 

C 

RETURN * 

C 

C *****+*****+********************************+****+**+****++***+*****+ 

c 

400 CONTINUE 

C THIS OUTPUTS BASIC RECEIVER DATA OF INTEREST 

WRITE (7,410) UDENTSU), 1-3.4), IR»NG, NS ‘ 

410 FORMAT (1H0.A8, 4HRC VR/1H0, A8,6HD ESIGN/ 5H < IR-, 12, 4H,NG- , II, 

* 4H» NS-, II, 1H ) ) ■ ‘ ’ ’ ’ 

WRITE(7,420 I UDENTS ( I), I- 5, 6) 

420 — FORMAT! 1H0, A8/1H0, A7/ ) " " 

RETURN 

C ****** ****** ********************************************************* 
500 CONTINUE 

C THIS SETS-UP THE MSET-LOQP-~ “ 

ICOUNT-O 

DO 510 I-l.LGMAX 

YYKI (IJ-1.E322 

- : - - 310 ' YYMA (I)— 1.6322 

RETURN 

C********************************************************************* 

600 CONTINUE 

— C THIS SETS-UP-THE LG-LOOP FOR’THE (HSET)-TH- SERIES OF SETS 

RETURN 

C *************'*********************** ******************* ******* ******* 

700 CONTINUE 

C THIS SETS-UP THE K-LDOP FOR THE (LG)-TH SET OF KH SCANS 
X(5)«X(2)— TSEP(LG) 

X (7 ) -XD( 7,IAE) ••• ' 

DUH-GAUSS tl.O) 

CALL INTI0C6H ‘ NRUN.NRUN, 1,1) ~ 

WRITE (7,705) LG.TSEP ( LG ) , X ( 5} 

- 703 FORMAT 1 1H1,4X,'3HLG>, 12, 5 X, 7HTHESEP-.G13 .6, 5X, 5HX(5)-,G13.6/) 

CALL INTI0I6H KH,KM,1,1) 
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WRITE(7,710) ( TITLE1 ( 1 1> I*1»NS ) 

■■ 230 710 FORMAT ( 6H0 K, AX, 5 HCSNRT. AX. 5H0TY ' ,9 (3X> A6.2X) ) 

DO 712 I-l/NS 

• - ' ' EMEANCD-0. • ‘ - - 

712 EMS(I)*0. _ _ 

235 ICQUNT-0 

~ - . qq 730 IPA*1>N$ - - 

DO 720 JPA»l,NS 

— PA ( IPA> JPA) *0. — - - - 

720 CONTINUE 

- ZAO 730 CONTINUE - 

RETURN 

C* +***+***+« t + *+* + *»******»* t*+«**t***iM**«+**+#******* + **+* + *4******* 

2 95 600 CONTINUE 

C THIS INITIALIZES THE K-TH SCAN"’ - 

SEP-SPACE 

- RETURN • • 

C 

230 -- C********************************************************************* 

C 

90Q CONTINUE' - > • • ' - • 

C THIS SAVES/PREPROCESSES DATA FROM THE K-TH SCAN 

— -- IF(ICOUNT.NE.LASTCT) SEP*ABORT -- - 

255 DO 905 I-l.NS 

• 903 — ES (I ) *X ( I )-XS ( I ) 

IF (NS. BE. 7 J ES(7}-ABS(X(7)I-ABS(XS(7>) 

_• IF(NS.GE.B) ES ( 8 ) * ABS ( X ( 0 ) I -ABS (XS ( 8 ) ) “ ' 

BETTA- < 160./PI I *X (7 1 

-- 260 — CQL8*TKERR • - 

IF (IRCVR .NE. 1) C0L8*S0RT(PP0IAG(2>) 

— IF (IRCVR .EQ. 1) CALL DFLTR1 <C0L8,THERR» FL10 ) 

IF ( (NRUN.EQ.NST ART.ANO.LG.EQ.l) , OR. ( K.EQ.KH) ) GOTO 906 

- “ GO TO 950 ■* ■ 

265 906 WRITE (7. 910) K, C SNRT, ( X ( I ) , 1-1, NS ) 

- 910 — F0RMAT(3H0 >13* 2X>G10.3*5H X* ,2X/9(G10. 3*1X1) - - ” 

WRITE(7.920) ( XS ( 1 1* I*1»N$ I 

920 FORHAT(18X,5H XS« t 2X> 9( G10. 3* IX) I • " 

WRITE (7/930 ) ( E S ( I ) , I -1, NS » 

"270 930" ' FORHAT (18X.5H ES* . 2X, 9 (G10.3. IX )) " 

IF (IRCVR. EO.l) WRITE (7.940 ) COLS 

940 - F0RMAT(8X,15HUNFILT. ES(21* >13X.G10.3»' 

950 XDATUMK t»8ETT A 

- - — THESES IK ) *THERR - - -- -- --- 

275 LASTCT-ICOUNT 

— IF(K.LT.KSTART) -RETURN - - " - 

DO 960 I«1,NS 

EHEAN(I}»EHEANiI)+£S(I) - - 

960 EMS(I)*EMS(I)+ES(I)**2 

280 ■ • - • RETURN - ----- 

C 

— C + **A*************++*A***** + ****+** + *****+****+*** + **A*A**********»**« 

C 

1000 CONTINUE 

285 C THIS SAVES /PROCESSES /OUT PUTS DATA FROM THE (LGI-TH SET OF KM SCANS 


I 
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290 


’ 293 


300 


305 


310 


' ' 315 


320 


3 23 


330 


335 


340 


DO 1005 1*1, NS 

' ' £MEAN(I)*EH£ANU)/KMNET ' 

EftS (I)*EHS(I)/KKNET 
ERMS ( I) “SQRTt EHSt I) I 
• ESD C I ) -SORT ( EMS < I l-EKEAN C I ) *+2 1 

1005 'CONTINUE - ’ ' - ‘ 

XW*I COUNT 

TC0UNT*100.*XW/KM ‘ " 

WRITE(7*1009) 

1009 FORMAT! 31/1) “ 1 ' ' 

WRITE 17>1010)KH NET 

‘ 1010 FORMAT! 5X*26HERR0R SAHPLE STATISTICS! (,I3*9H SAMPLES)) 

IFlIRCVR.EQ.il WRITE (7*1015) 

1015 F0RHAT(5X,31HTHRESH01D RCVR (FILTERED ERROR)) 

WRITE (7*1020) (TITLEl! I >*I*i*NS) 

' 1020 FORMAT (1H0*20X* 4HQTY *9(3X*A6*2X)) ' " ' "* 

WRITE ( 7* 1030) ( EMEAN (I ) * 1*1* NS ) 

' 1030 F0RHAT(1H0*16X*BHEMEAN ■ »9(610.3»1X) ) 

WRITE(7*1040)(ERMS(I).I*1*NS) 

1040 FORMAT! 18X*7HERMS ■ * 9(G10.3*1X) I ' 

WRITE (7*1050) (ESD(I),I»1,NS) 

• 1050 FORMAT (19X*6HESD - ,9 (G10.3.1X) ) ' * “ 

IFdRCVR.EQ.il WRITE(7»1060)TCQUNT 

' 1060 ” FORMAT ( //1H * 4X* F7. 2. 22H7. OF SCANS ARE ABORTED) ' " * ’ 

IF<IRCVR.NE.l)WRITEt7»1070M6QGT(I,I),I*l+NS> 

"" 1070 F0RHAT(5(/)*4X*35H ON LAST SCAN* DIAGONAL OF GQGT WAS/26X 

C9(G10. 3*1X1 ) 

DO 1071 1*1* NS - 

EEHE A( LG* I )*EHE AN ( I ) 

' EERMS(LG»I)«ERMS(I) ' ” “ " ~ • ' 

10T1 EESTO(LG#I)*ESD(I) 

DO 1072 I*1*KK . - - ' - 1 

YYMI ( LG) *AMIN1 ( THESER (I )» TYMI(LG) ) 

1072 ~ YYMA(LG)*AHAX1(THESER(I)»YYHA(LG)) 

TTCO (L G ) “TCOUNT 

' IF(LG.NE.l) RETURN’ "" 

YHIN*YHAX«0. 

WRI TE ( 7* 11 ) ’ • - ... 

CALL PLOTR(XDATUH,TH£SER* KM, XNAME*YNAME* YHIN, YMAX»0) 

• ’ RETURN ' 

C 

'C**** *** + * + ♦***♦♦**** + **♦♦♦*****+********'***♦+♦**♦** + *+*♦* + **♦♦♦*♦**** 

C 

' 1100 CONTINUE ' 

C THIS SAVES/PROCESSES/OUTPUTS DATA FROM THE (MSET)-TH SERIES OF 

CLGMAX SETS OF. KM. SCANS : 

WR ITE ( 7, 11 1 

CALL INTIQ(6H NRUN,NRUN,l,l) * 

WRITE(7,1110) 6HTHESEP* (TITLE1(I),I«1*NS) 

1110 FORMAT(1HO,10X,3HQTY ,9(3X*A6*2X) ) ' 

WRITE (7* 1120 ITSEP (1)* (EEMEAd* I )* I«1*NS) 

1120 FORMATdHO* 7X*7HEMEAN< . 9(G10. 3,1X1 ) 

00 1130 J"2* LGHAX 

1130 WRITE! 7* 1161) TSEPU), (EEMEA ( J» I ) » I*1*NS) ' ' 

WRITE < 7*1140>TSEP(1)* (EE RMS (1,1), I«1»NS ) 

1140 FORMATdHO*' 8X*6HERHSl * 9 ( G10. 3, IX I ) - 

00 1150 J*2*LGHAX 
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345 


350 


355 


360 


365 


•• • - 3 70 ' 


373 


- 380 


385 


390 
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1150 

1160 

1163 

1161 

-1170 

1172 

1174 

-1176 

“1175 

-1182 


1190 


•1195 

1196 


1198 

-1199 


1101 


WRITE (7/ 1161 ) TSEP(J)*(EERKSC J,I)*I*i»NS) 
WRITE<7*1160ITSEP(1)*(EE$TD(1»I)»I-1,NS> ' - 

FORMAT (1H0* 3X*6HESTD« * 9 (G10.3* IX > J 
DO 1165 J-2.LGMAX ' 

WRITE(7*U61) TS£P(J)»(EESTD(J,I>,I-1,NS) 

- FORNAT(15X*9IG10.3,1X)) " 

IF (.NOT.FILQUT) GOTO 1199 

WRITE(7* 11) — ' ‘ “ ' 

WRITE ( 7* 1170 ) (DATOUTU >*1-1,2) 

"FORMAT (13 H OUTPUT FILE *2A10,lHi/) " - - - 

WRIT E ( 7*1172 ) DOUT*DELT»MTIMES*LGMAX*KM*TODAY» JBNAH 
' FORMATdH ', A10* SX*G13.6*5X*3(5X* 1 3* 10X } * A10* 8X* A10/ ) 

WRITE (7^1174 ) IDENTS* KS TART 
FORMAT 1 1H *6tlX,A8,9XJ,6X,I3/) 

WRITE (7*1176) N RUN* DSNRD8,RH0* BETA, FSC, 8MLS, BRC VR 

FORMATdH * 5X* 12* 6X* 6 (5X* G13.6) / ) " ' “ 

00 1175 LGN -1* LG MAX 

WRITE (7* 1182) EEHE(LGN)*EERH(LGN)*EEST( LGN ),TTCO(LGN) *YYHI( LGN) * " ‘ 
*Y YKA ( LGN) * TS EP t LGN ) * LGN 

• FORMATdH * 7(G13.6* 5X )* 15) 

WRITE (17) DOUT, DELT,MTIMES*LGHAX*KM,TODAY* JBNAM 

” WRITE(17 ) ID£NTS*KSTART - ’ 

WRITE (17) NRUN*OSNROB»RHO* BETA* FSC, BMLS* BRC VR 

-DO 1190 LGN*1*LGMAX 

WRI TE(17 I EErtEI LGN), EERM( LGN) , EESTILGN ) *TTCO(LGN) * YYHI (LGN), 
♦YYMA(LGN)*TS£P< LGN)*LCN — - 

IX-IATTACH(6LTAPE20*DAT0UT) 

-IFIIX.NE.O) GO TO 1193 ’ ' 

READ (20) DUM*DUM*IDUM*IDUM»IOUH*OUH*IDUH 

"CALL RETURN! 6LTAPE20 ) — 

REWIND 17 

- IX*ICATALO(6LTAPE17*OATOUT*2LPW*8RHIGHFILL*2LRP,3 63) “* 

GO TO 1196 

CALL RETURN (6LTAPE20)' “ - - - • ' “ 

REWIND 17 

"IX-ICATAL0(6LTAPE17,DATQUT*2LXR»8RHIGHFUL*2LRP*363) 

IF ( IX.NE.O) CALL INTI0(6HIX(CA), IX*1*1) 

IFIIX.NE.O) STOPWOUTPUT FILE CATALOG NOT SATISFACTORY R 
CALL RETURN! 6LTAPE17 ) 

WRITE (7,1198) ( 0 AT OUT ( 1 ) * 1*1, 2) ... 

FORMAT (13H0DUTPUT FILE *2A10*33H IS WRITTEN* CATALOGED ANO CLOSED) 

• CONTINUE 

DO 1103 I-1,NS 

-• FACTOR-1. " ’ ‘ • - — 

IFII.EQ.7) FACTOR-180. /PI • 

-IFII.EQ.8) FACTOR-. 3/PI - ’•• 

IF(I.EQ.9)_FACT0R-,5m 

YNAX*o! 

• DO 1101 LG1-1* LGMAX 

EEHE ( L Gl) -EERMS ( LG1* I ] + FACTOR 

YNAMEldl-YNAMld, I) i - 

YNAME1(2)-YNAH1(2, I) 

- K1-M0D(I*2) | 

IFIK1.EQ.1)WRIT£(T*11] 

•IF(Kl.EO.l) CALL INTIG(6H ’NRUN, NRUN*1* 1 ) * - - 

IF(Kl.EQ.O) WRITE! 7* 10) 


CTLMSTH2 
Page 7 of 8 



A- 46 


SUBROUTINE CONTRl 73/172 TS ' FTN 4.6+452 05/18/79 13.52.38 


400 CALL PL0TR(TSEP,£EHE,LGHAX,XNAH£1,YNAHE1,YHIN»YMAX,0> 

1103 CONTINUE ' ’ • " . . 

RETURN 

....... c . . ... 

C******************* ******* t****************************************** 

405 - C ' ' 

1200 CONTINUE 

"" C THIS EFFECTS "CLOSURE OF THE'SIHULATION RUN"' ' 

RETURN 

C ' ' • 

410 c ********** t************,*************,**,****************************,*** 


END 

45000B CN STORAGE USED 12.547 SECONOS 
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25 


- 30 


35 


90 


9 5 


"50 
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SUBROUTINE CONTRL(ISW) 

c " ' 

C THIS CONDUCTS THE MLS SIMULATION THROUGH A 
C ’ STUDY OF LOE PERFORMANCE 

C THIS VERSION INVESTIGATES .THE ERROR PERFORMANCE 

c 


REAL LAMDA 

" ' REAL E!2),TEI2)»MSE 

LOGICAL NOK LMN, NOLOE, NOAC, KALMAN, LOE, TETHRO, MORE, NFIRST, ADAPT V 

INTEGER FUNCTN ( 2 ) ' ' 

REAL XNA ( 2) , YNA 12) 

■■common/iooata/isim,ipmls',ircvr;iadap,itethr;ipopt 

COMMON /RCVROO/ THAMAX, TH AMIN, TS/TR, OMEGA, TF 

COMMON /RC VR01/NGM1N, NGMAX, DELBL >NGH, IR, IAE 

COMMON /RC VR02/ R HOMA X, OTHQ»TDRO,BO,WSCO»NSO!9),NGO!9) 

C O HHDN /KCVR03/PI,F!8,8)'» FL2 5 ( 9 ) , FS AMP, K, KM, TETHRD, NG, NS, JM ' 

C0MMGN/RCVR09/D£LT,EQ (O),GQGT(0,8),Ht5,8),ICOLINT,SIGMA 

’ " ‘ ' COKMON/R.CVR05/NOLOE, NOK LMN.NOAC ,GAMAES (5),kDIAG(5),PM0IAG(8> 

C0MM0N/RCVR06/PPDIAG(fl),RHAT(5,5),PHI(5,5l,PA(8,8),LAMDAt5) 

- ' CJMMON/RCVR07/Ttl30),VI130l ' ' ' 

C0MMON/RCVR06/X SLOE (8),E5 LOE (8 ),ES (8) 

COMM0N/RCVRO9/BRCVR,B8,POCRIT,CC" 

COMMON/RCVRIO/X SI ( 8 ) , XS ( 8 ) 

COMM ON /MLS GOO/ALFA, THE, THE DO T,ALFAR,THR,THRDOT,B, WSC ' 
COhhUN/MLS001/CSNRT,CSNRF,DSHRD8,RHO', BETA, FSC, LGMAX 
“* ‘ ' 'COMMON/MLSOOZ/OCSNR,CSNR,LG,TPKT, TPKF 

C OMMON/MLSOOS/FLIOA E(9,2),FL1Q(9),DELTAT(2),XD{8,2), YD! 9, 2) 

• CDMMQN/HLSQ09/BMLS,BBB,MTIMES,MS£T, MORE 

DIMENSION X(81,TSEP(20),B£TAEI20), BULK (25,10), BULL(15, 10), X£(8) 

DIMENSION 0MAT(5,5) ‘ “ ' ' 

DIMENSION NAMES ( 11), NAMES fill , NAMES ( 5> 

DIMENSION IDNRS(6),1DASCI(29),IDENTS(6) ‘ 

31 HENS I UN AK ( 50 ) , ATE ( 50 ) , P ABORT ( 10 ) , PA BMAX ( 10 ) 

' EQUIVALENCE ( ALFA, X ( 1 ) ) , ( ISIM, IDNRS t 1 I ) 

DATA ABQRT/1HA/»SPACE/1H /, AOAPTV/ .TRUE . / 

• DATA’I0ASCI/7HCR0SSMP,7HRKSE(T),7HRMSE(B),7HRHSE(F),7HAC0SITN, ' 

♦ 2 + 7H » 7HL0ERMSE, 7HGENERAL, 8H PMLS1 ,BH PMLS2 , 

"»8H P ML S3' " , 8H THRHLO ,BH OPTIML ,8H SUBOPT , 8H -3 OB ,8HADAPTIV 
♦BHMDNAOAP ,8HUNTETHR0,8HTETHERED,2H ,8H PDPTl »0H P0PT2 > 

*8H P0PT3"/ ’ ” ' ’ ' ’ ' 

DATA KST ART/11/, I RS1GN/1/, KM NET/20/ 

— DATA FUNCTN/7HAZIMUTh;7HELEVAT. / ■' 

DATA TSEPMN/“0.5D/,DTSEP/0.25/ 

' ’■ 'DATA NAMES /6H E1AVG,6H E2AVG,6H E1MIN,6H E2MIN, 

* 6H E IMA X, 6H E2HAX.6H E1RMS,6H E2RHS,6HARIAVG, 6KGE0AVG, 

* 6H RMS E/ - .... 

DATA NAME5/3HAVG,3HAVG,3HMIN,3HMIN,3HMAX,3HMAX,3HRMS,3HRMS, 

♦ "3HAVG,3HAVG,3HAVG/ *“ 

DATA NAME6/6H T E AVG, 6H T£MIN,6H TEMAX,6H TERMS, 2H / 

DATA* BETMIN/O,/ 

DATA XNA/bH SCAN ,0H K / 

OA TA "YNA/8H' X2-XS2”, 8H ~ / 

r 


-GQ TO'! 

I FORMAT! 
10 “FORMAT! 

II FORMAT 


1 00 J 200/3007 900, 500V 800', 700> 800, 900, 1000, 1100, 1200 ) i IS W~~ 
IH ) 

9i/ n • • 

( 1H1 ) 


I 
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60 


65 


70 


‘75 


80 


85 


90 


95 


100 


105 ' 


110 
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C 

+ + + + . + + + + + + + , + + + , + ♦ + ♦ + * + + * + + , 

C 

iOU CONTINUE 

C THIS IDENTIFIES THE SCENARIO AND REINITIALIZES/ AS NECESSARY/ 

CTrit FOLLOWING RECEIVER PARAMETERS ' ' 

CSIGMA/IAE/DSNRDB/RHG/ ESC, BETA/ JH/BMLS 

MORE. .FALSE. ‘ ' ' 

JBNAM. jOBNAKEt 1 1 

1S1M»0 

1MOO *3 

‘ " WRITE (7/110) ' ' 

110 FORMAT ( 2 2H1 LOE PERFORMANCE STUDY) 

CALL INTIO ( 6H KMN ET/ KMNET/ 100/ 0) 

DELBL* .01 

" “ L6MAX*10 " ' ‘ 

MT1MES*20 

' TETHRO-iTRUE. ~ • - - - ~ 

NOLOE*. FALSE. 

NOKLMN-.TRUE, ' ’ ’ ‘ 

CALL REALIO < 6H0SNR0B/ OSNRDB/ 0 ) 

CALL REALIO (6H RHO/RKO/O) 

CALL REALIO (6HTSEPMN/TSEPMN/0) 

CALL' REALIO <6H OTS EP/O T S EPz 0 ) ' 

CALL INTIO (6H NTSEP » L GMAX / 20/ 0) 

“ CALL REAL10(6HBETMIN/6ETMIN/G) “ ’ 

CALL INTI0I6HN0BSEP/MTIMES/20/0) 

DBETAE*360./MTIMES ‘ “ 

DO 120 1*1/ LGMAX 

120 TS£P(I)*TSEPMN+(I-1)+DTSEP 

DO 126 I *1/ MT I MES 

' 126 BETAE(I)*BETMIN+(I“1)+DBETAE ‘ * ' 

XO ( 3/ 1 A E ) *0. 

' " X0(5/IAE)*X0(2/IAE)-TSEPMN 

X0(6/IA£) *0, 

BETA'*8ETMIN “* “ ‘ " “ * . . . . 

F SC *0 . 

CALL LQGI0(6HTETHRD/TETHRD/0) 

, IFlIRCVR.EO.il GO TO 125 

" CALL L0GI016H NOLOE/ NOLOE/ 0 ) ‘ " ‘ ~ 

CALL LQG1016HNOKLMN/NOKLHN/0) 

"IF (NOKLMN ) KSTART *1 " " 

CALL L0G10I6HA0APTV/ADAPTV/0) 

' ' 125 ' ‘ CONTINUE 

KM-K5TART+KMNET-1 

‘ ' CALL INTIO (6HKST ART /KSTART/ 1/1) 

CALL INTIO (6H KM/KM/1/1) 

1F(TETHRD)”ITETHR*2 " ’ 

IFUOAPTVI GO TO 135 

IRSIGN«-1 • • • 

IA0AP*3 

135 CONTINUE ~ ‘ ' " ‘ 

DO 165 1-2/6 

‘ ~ lASC“3MI-ll + I0NRS(I)+6 ’ “ “ 

IDENTS(I)*IOASCI(lASC) 

165 ‘ CONTINUE ’ “ “ 

ENCODE ( 6/150/ lOENTS(l)) IOASCII ISIM) /IHOD 
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115 


120' 


_ 12 5 
— 133 


135 


— 140 


145 


— 150 


155 


160 


105 


170 
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150 F ORMAT ( A7, 11 ) 

1 ‘ nRITt (7.152) IDNRS.IMOD ' 

152 FORK A I (1H.6I1,1X.I1/) ’ 

WRITE (7.153) IDENTS - - - - 

153 FORMAT (1H ,A8) 

■' 'RETURN “ “V 

C 

- ----- c ♦ +*♦*+ + + ♦ + * + *** + * + *** + ** + + + + + *** + +♦. + + * + + +++ + *4t+++++*** *+++*♦»++++++* ■ 

C 

- --.-— 200 CONTINUE 

C THIS OUTPUTS BASIC SIMULATION DATA OF INTEREST. SUCH AS 

CTHE'ANGLE FUNCTION, INITIAL STATE, ETC. * 

CALL DATE (TODAY I 

“ WRITE (7,250) FUNCTN (IAEJ.IAE 

250 FORMAT (1H0.A7.15H FUNCTION ( IAE-, I1.1H) ) . 

WRITE (7,260 (d,X(I)),I-l,6) ' " ~ "" “ 

260 FORMAT (15H0INITIAL STATE1//OH X(,I1,4H) - ,G13.6>) 

, "write { 7 , 270 ) 'I0ENTSI2) ~ 

270 FORMAT ( 1H0, A7 ) _ 

C 

c » ...... ..*,*4+****+. + *.**. *** + + *** + . + * + **** + + *»+ + + + + + + + * + *»* + **«'***** * 

C 

- 3(J0 "CONTINUE 

C THIS IDENTIFIES THE BASIC RECEIVER STRUCTURE ( THRHLO, OPT, SUB OPT) 

"CANO REINITIALIZES, "AS NECESSARY, THE FOLLOWING RCVR DATA ' ‘ 

CIR (NEGATE ONL Y ) , NOAC, NOK LHN.NOLOE.BRC VR, DE LBL, TETHRD 
ITir*MING(IRCVR,2> 

; c 

C ’ NEGATE" I R WITH 'THE "FOLLOWING" FOR NONADAPTIVE RECEIVER ' 

IFUKS1GN.LT .0) IR — IR . _ __ ‘ 

RETURN 

C *+*****+»***+♦***+**+**+++ +*+*+++**+♦++*+***+*+++ *+*+**♦+ *+**++*+++** 

4U0 CONTINUE 

C THIS’ OUTPUTS 'BASIC RECEIVER DATA OF INTEREST’ * "" ' 

WRITE (7,410) ( IDENTS (I) # 1-3.4 ),IR»NG, NS 

410 -■ FOFNAT ( 1H0. A6 , 4HRC VR/1H0. AS, 6H0ES IGN/5H ( IR« , 12, 4H, NG-, II. ~ ' 

* 4H.NS-, U,1H> ) 

•" WRITE(7,-420) (IOENTStl), 1-5,6) “ * 

420 FORMAT (1 HO, A6/I HO, A7/) 

C 

- C 1 '******************************************************************** — 

c 

C THIS SETS-UP JTHE KSET-LOOP 
DO 502 J-l.LGMAX 

• - • ■ BULL (11,.) ) -0. — — - * 

BULL (12, J ) -+1.E322 

BULL (13, JI— 1.E322 — " " 

BULL ( 14, J) -0. 

• * ’ BULK(15,J)-0." ....... 

BUL K ( 1 6, J ) -0 • 
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175 


180 


185 


190 


"195 


200 


205 


210 


215 


220 


225 


BULK(17, JJ-+1.8322 
BULM18, J)*tl.£322 
BULK(19,J> — 1.E322 
BULK(2w,J>— 1.C322 
PABMAXU) — 1.E322 

BULK ( 21, J ) *0. " ' ' ‘ ' ~ ‘ 

BULK ( 22, J ] *0 • 

" SULK ( 23, J ) »0 . ' ‘ ‘ " • • 

8ULK129, J) -0. 

‘ ' BULK(25,J)»0. ‘ ' •" 

502 CONTINUE 

'CALL 1NTI0 ( 6HMTIHE$,MTIMES»1»1) 

WH1TE(7,510) 

510 FGRMAKiHl,90X,21HLQ£ ERROR PERFORMANCE/ > 

WRITE (7.511! (TSEP(I),I*1,LGMAX) 

511 FOKMAT(1HO,7HTHE$EP»,7X,10<1X,F6.5,2X>) 

WR 1 TE ( 7. 512 ) 

512 FORMAT! 1H0.5HBETAI > 7 ’* 

RETURN 

C . .... 

£*♦.♦+ *♦♦♦#♦**♦♦*+******** +4 »♦++**♦♦****♦+*♦♦****♦*+*♦♦♦♦+**♦*♦* *♦#*** 

C ' ' .... ... 

600 CONTINUE 

C THIS ScTS-UP THE LG-LOOP FOR THE (MSET )-TH' SERIES OF SETS ' ' ’ 

8 ET A *8E TAE ( MSE T ) 

X0(7,IAE)*PI*8ETA/160. ” 

X ( 7 ) • XO (7.IAE) 

I F (MOD (MSET. 8 ) , E 0.0 ) ' WRITE ( 7, 511 ) (TSEP (I ), 1*1, LGHAX ) 

RETURN 

C ‘ 

C*** 1 * +44*44* ** 4+44**44* 4*44 4* +4 44*4*4 4444+ 44444444444444444444444 4*44* 

C • 

7C0 CONTINUE 

C THIS SETS-UP THE K-LOOP FOR THE (LG)-TH SET OF KM SCANS 
THES EP*TSEP (LG 1 

X (5 ) « X(2)-THE$EP ' " - 

DUM. GAUSS (1.0) 

' ‘ LASTCT *0 

ICDUNT-0 

FL10(9)*0. " 

TH£TAV«0. 

*■ ‘THETMN-+i;E322 - 

TriETMX— 1.E322 

‘ THERMS-O. ' ' — 

E1AVG-0. 

‘ " E2AVG«0. " 

E 1MIN*+1. E32Z 

'E2MIO + 1.E32Z ” 

E1MAX— 1.E322 
E2MAX — 1.E322 
£ IRMS *0. 

E2RMS-0. ~ 

MS£*0. 

LASTCT *0 ~ “ 

00 705 1*1,8 

DO 705 J-1,8 ‘ " •' " ' " '■ 

705 PA ( 1, J ) *0 . 
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‘290 


2<t5 


' 250- 


255 


* 250 


265 


270 


275 


280 


235 
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RETURN 

c • ’ ■ ' .... 

C + + *'M‘** + *'M4 + *’M‘'******+*+4 + +4 * + +♦****♦ + * + ♦ + *44** ♦♦♦ + **** + 444*4444+444 

c 

000 CONTINUE 

’• C THIS INITIALIZES THE k-TH 'SCAN ” _ 

DO 810 1*1,5 

' 010 RDIAG(1)*1. ' ' — ” ‘ 

1HTETHKD) RETURN 

‘ - RETURN ' ” * 

C 

" C* **4*444*44A444*444*444A4+44444444*4*+4*44*A*4+*++*44+4*44**+4*44**4* 

C 

90 D CONTINUE ’ ‘ 

C THIS SAVES/PREPROCESSES DATA FROM THE Jt-TH SCAN 

C_ FOLG SHOULD BEINRCVR _ 

X5 (1)*ABS(XS<1) ) f 

- - X S ( 9 ) * AB S ( X S ( 9 ) ) ... - 

IF (ICOUNT.NE.LASTCT) SEP* ABORT 

THERR *X ( 2 I -XS ( 2 I .“ 

IF (1RCVR.E0.1I CALL DFLTR1 ( THERR, THERR, FL10 ) 

" LASTCT*ICOUNT ' ' 

IF(K.LT.KSTART) RETURN 

~ TE (ll-X(l)-XS(l) ’ — ' ~ 

TE ( 2 J -THERR 

“THETAV*THETAV + TE(2I ' ” ' ' ’ 

THETHN-AHIN1(THETHN,TE(2) ) 

— THETHy-AHAXl(THETHX,TE<2)> CT “ 

THERMS*THERHS+( TE<2)**2) 

““ IFdRCVR.EQ.ir ' RETURN “ 

1F((R0IAG(1).GT.1.E-293).AND.(RDIAG(2}.GT.1. E— 293 I } GOTO 910 

- -CALL KATOUT { 6H PHI » , PHI , NG, NG, 5, 1 ) ' 

CALL MATQUT ( 6HRMAT *, RHAT, NG, N G, 5,1 1 

. . - ~~ •- -CALL'HATHUL(5,NG,NG,5,NG,HG,NG,NG,RHAT,PHI,0«AT,1) ' — — 

CALL MAT0UT(6HR+PHI*,DMAT,NG,NG/5,1) 

-STOP /BAD MATRIX PHI/ • - — • • 

910 CONTINUE 

- SIG1*SQRTIRDIAG(1)I * ” 

SlG2 e SQRT(R0IAG(2)) 

E(1)*TE(1)/SIG1 

E ( 2 ) *T E (2 I /SIG2 

E1AVG-E1AVG + EU) — , - 

£2AVG*E2AVG+E(2) 

E1MIN*AMIN1(E(1>, E1MIN) 1 

E2MIN-AKIN1(E(2),E2MINI 

E1MAX*AMAX1(E(1),E1MAX) " 

E2MAX* AMAX1 ( E ( 2 1 1 E2KAX I 

E1RMS*E1RHS+{E(1)442) ' “ v 

E2RM5-E2RMS+(E<2)+*2) 

- ‘ DO 9 20 -1*1,2--' - 

DO 92C J *1, 2 

920 ” !ISE*MSE+TE(I>*TETJ)+PHI(I,JI 

RETURN 

C 4 ******** 444 ******** 4 44 4 *44444**4*444444444*44444444*4****444***4+444 
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290 


295 


300 


305 ’ 


310 


315 " 


320 


325 


3 30 


335 


390 


C 

1000 CONTINUE ■ ■ ■ • 

C THIS SAVtS/PROCESSES/ OUTPUTS DATA FROM THE ( LG) -TH SET OF KH SCANS 
8ULL(1,LG)*THETAV/KMNET 
8ULLU,LG)*THtTMN 
BULL(3,LG)“TH£TMX ' 
aULL(9,LG)»SQRT(THERMS/KMNET) 

' 8ULl(U>LG)*BULL(ll>lG) + BUUtl>LG) ' ’ ” " ' ' 

BULL(12,L&]*AMIN1<BULLU2,LG),THETHN> 

■' BULL(13,LG)*AMAX1(SULL(13,LG),THETMX) - - - - 

BULL(19,LG)*BULL(19, LG ) + ( THERMS /KMNET) 

PA80RT t LG) ■ ( 100. + 1 COUNT ) /KM ‘ 

PABMAX(LG)*AMAX1(PABMAX(LG)» P ABORT (LG ) ) 

■ IF tIRCVR.EQ.l) RETURN * 

BULK(1,LG)«E1AVG/KMNET 

bulk(2,lgi»E2avg/kmnet 

BULK(3,LG)*£1MIN 

BULK(9»LG)*E2MIN 

BULK(5,LG)*E1MAX 

B0LK(6,LG)*E2MAX 

BULK(7,LG)*SQRT(E1RMS/KMNET> 

BULK(8,LG)*SQRT(E2RK$/KMNET) ' 

BULK(9,LG)*SQRT((BULK(7»LG)++2+BULK(8»lG)**2)/2) 

' ' ’ 8ULK(10,LG)*SQRT(BULK(7,LG)+BULK(8,LG)) ' 

BULK (11, LG) -SORT (USE /KMNET) 

8ULK(15,LG)*BULK(15,LG)+BULK(1,LG) 

BULK (16, LG) *BULK( 16, LG ) +BULK ( 2, LG ) 

' BULK(17,LG)*AHIN1(BULK(17,LG),BULK(3,LG1) 

BULK(10,LG>*AMIN1( BULK (16, LG ) , BULK{ 9, LG ) ) 

BULK(19,LG)*AMAX1(BULK(19,LG),BULK(5,LG)) ' 

BULK ( 20, LG) • AN AX1 (BULK ( 20, LG }, BULK! 6, LG) ) 

BULK(21,LG)*BULK(21, LG )+ BUL K(7, LG ) + *2 

BULK! 22, LG) -BULK (22, LG )+8U LK ( 8, LG ) *+2 
BULK(23,LG)«BULK(23,LG)+BULK(9,LG)**2 ----- 

BULK ( 2 9, L G) • BUL K ( 29, LG) + BULK (10, LG) +*2 

BULK(25^L"G)»BULK(25,'LG)+BUIK<11,LG)**2 

RETURN 

C* + + + + ** + **** + ****** + + ** t********************************************* 

HOC CONTINUE 

"C THIS SAVES/PROCESSES/OUTPUTS OATA'FROH THE "(HSET)-TH SERIES OF " 
CLGMAX SETS OF KH SCANS 

‘ ‘ WRITE (7,1101) BETA 

1101 FORMAT ( 1H0,F7. 2 ) 

' ' 00 1160 1*1, 9 

WRITE (7, USD) NAMES) I), (BULL(I,J)» J*1,LGHAX) 

* 1150 FORMATflH ,7X,' A6, 1H», 10 (1X,G10. 3 ) ) ' 

1160 CONTINUE 

IF ( IRCVR.EQ.l ) WRITE(7,1150) 6HX.AB0RT, ( P ABORT ( J ), J*1,LGMAX ) ' 
IFURCVR.EO.l) RETURN 
WRITE(7,1103 ) ( BULK ( 1, J ) , J* 1, LGMAX) 

1103 FORMAT ( 1H ,7X,7K E1AVG*, 10 ( IX , G10. 3 ) ) 

“DO 1x90 1*2, 11 ~ 

WRITE (7, 1115) NAMES (I), (BULK (I, J I, J*l, LGMAX) 

1115 FORMAT ( 1 H , 7X , A6, 1H« , 10 l IX, GlOi 3 ) ) * - - . 

1190 CONTINUE 
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RETURN 

C 

3,95 £*♦++*»****♦+*♦***♦+*+*♦+*+ ♦+♦*+♦* 4 4 *♦♦♦++♦+****+♦+******+♦ ♦+*♦*+***** 

C 

120C CONTINUE 

.. ... - c THJS £fFtcTS c L DS LtR e OF THE S I HULAT i ON' RUN ' '" 

• D0122C I*1,LGMAX 

350" ‘ ' BULL(U,I)*BULL(11,I)/MTIMES ‘ .... 

BULL ( 19/ I } "SORT ( BULL l 14. I ) / MTIMES } 

XFLIRCVR.EQ.il GOTO 1220 ~ ' ' 

SULK (15, 1 )»BULK(15,I)/MTIHES 

BULK(lt),n»BULKI16,l)/HTIH£S 

355 BULK(21,I)*SOKTtBULK<21, 1) /MTIHES) 

' ” BULK(22,I)*S0RTtBULK(22,Il/ttTIHE5> 

BULK (23, 1 1 "SORT (BULK (23, 1 J/HTIHE SI 

* ■BULK(29,I)-SQRT(8ULK(29,n/HTIHES) ' 

BULK <25, I). SORT (BULK <25, I) /MTIMES) 

- 360 1220“ CONTINUE" ' ' " ••• - — ”* ' 

• WKITb(7,1230) 

" 1230’ F ORMAT ( 1H0, 9HWRT ' BETA I / ) ' ' 

00 1233 1*11,19 

• - - "iiw-io--* 

365 WRITE (7,12351 NA HE 5 ( 2 +111 ) , NAMES ( 1 11 1 , ( BUL L < I , J 1 , J -1 , LGHAX I 

1239 FORMAT ( 1H “,3X,'A9» A6,1H*,10(1X,G10.3)1 

1233 CONTINUE 

IF (IRCVR.E0.1)WRITE(7,1Z39)9HHAX , 6HXABGRT, ( PABMAX ( J ) , J*1 > LGHAX ) 

IF (1RCVR.E0.1) GOTO 1296 

- 370 DO 1295 1*15, 25 

IT-I-19 

WRITE(7,'1290J .NAM£5(IT),NAMES(IT),(BULK(I»J),J"1,LGMAX) ” ' ' 

1290 F ORMAT ( 1H , 3X, A9, A6, 1H*, 10 ( IX, G10. 3 ) 1 

- -'- 1295 CONTINUE * " * " 

375 1298 CONTINUE 

WRITE (7, 511 1 '(TSEP (I), 1*1,LGMAX> - 

WRITE(7,1250) 

~ ” ' 1250 - FORMAT(IHO)' 

IFCIRCVft.NE.il WRITE (7, 12 60) (GQGTII, I), 1*1, NS) 

- 360- ■ 1260' FORMAT (13H GQGT(I,I)‘* , G 13 .6, 7 1 IX, G13, 6) ) 

RETURN 

C* ******************************************************************** 

385 C ENO 



I 
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20 
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45 


50 


55 


SUBROUTINE MLSSUB 

' REAL LAMDA 

LOGICAL NCKLMN,NOLOe,NOAC, KALMAN, LOE , TETHRD, MORE 
COKMQN/kC VROO/THAMAX , TH AMIN, TS, TR> OMEGA, TF 
C OMMON/RC VR01/NGMIN, N GMAX.DELBL.NGM, IR. IAE 
'' C OMMON/RC VR02 /R HOHAX, OTHO, TORO, BO, WSCO, NSQ (4 ) , NGO { 4 1 

C0MM0N/RCVR03/PI.F(6. 0),FL25(4) »F SAHP . K. KM. TETHRO, NG.NS. J M 
" '’COMHQN/RCVR04/DELT>EO(3),GQGT(8.8),H(5,8),ICOUNT,SIGMA 

CQHMQN/kCVF03/NGl0E,N0KLMN,N0AC,GAMAES(5),RDIAG{5),PMDIAG<8) 

CGMMCN/RCVR06/PPDIAG(e),RMAT(5,5),PHH5,5>,PA<6,8>,LAHDA(5> 

CQMM0N/RCVR07/T(130),V(13GI 

"" "" COMhON/RCVR08/XSLOE(8).ESLOE<6).ES(8) 

COMMON/ RCVR09/BRCVR. B0.POCRIT.CC 
COMMON /RC VR10/XS1(8),XS(8) 

COMMON/M LSOOO/ ALFA, THE. THED OT, ALF AR, THR, THRDOT. B.HSC 
C OMMON/MLS 601/ C SNRT, CSNRF, OSNRDB.RHO.BETA, FSC. LGM AX 
COMMON/M LSOG2/0CSNR.C SNR, LG. TPKT.TPKF 
' “ ' CQMMUN/MLS003/FL10AE(4,2),FL10<4I,D£LTAT<2>»X0<8,2),Y0(4»2) 

COMHQN/MLS004/B MLS, B B B, MTIMES, HSET, MORE 
C GENERAL SIMULATION! OPTIMIZATION DF MLS RECEIVERS FOR 
C MULTIPATH ENVIRONMENTS 

' DIMENSION X1<8),INDEX(2),Y{4),X(8) 

EQUIVALENCE (TH AMAX, Y ( 1 ) ) » ( ALFA, X (1 )> 

c 

C FULG BEGINS EXECUTABLE STATEMENTS 
PI2*2,*P1 

" *“ S022-SQRT<;5> * " * *' 

C 

C' ' FQLG "INITIALIZES THE DIAGONAL OF F18.B)' 

C 

9 ~ • do 10 i-i;e' ■ ' 

F ( 1, I )*1* 

1G "• CONTINUE * _ 

CALL CONTRL(l) 

" " SSQ2*SIGMA*SQRT (2. ) 

c 

C •* FOLLOWING “COMPLETES INITIALIZATION AND COMPUTES SECONDARY 
C ___ PARAMETERS.^ 

DO 15 1*1,4 

“ FHO(I)*FL10AE<I,IAE) 

15 CONTINUE 

‘ “ DO 20 1*1,4 

Y(I)*Y0(1,IAEI 

20 “ ’CONTINUE ' " 

OMEGA— (TKAMAX-THAMINJ/TS 

’ ’“'SECPD*'i;/OMEGA ' * ' 

TF*TS4TR-2.*THAMIN*SECPD 

C ’ 

C FOLG ARE CONSTANT PARAMETERS USED BY P 

B B B *2. 4 / 8MLS 

" DUM*GAUSS(1.0) 1 " 

ALPHA*10,4* (0SNRDB/20. ) 

XOd.IAE J*ALPHA ’ “ * 

ALPHAR»RHO*ALPHA 
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PROGRAM MLSSIM(INPUT» OUTPUT » TAPE 10« IN PUT/TAPE 12/ TAPE 13/ 
+TAPE7-0UTPUT/TAPE17/TAPE20) 

REAL LAMDA 

LOGICAL NOKLMN/ NQL OE / NO AC / KALMAN/ LOE/ T ETHRO/ MORE 
CQHMDN /IODATA/ IONRS (6) 

' COMMON /RC VROO/ THAM AX/ TMAMI N/ TS / TR/ OM EGA/ TF " ' ' " 

COMMON / RC VRO 1 /NGM IN »NGMAX>DE LB L.NGH# IR/ IAE 
COMMON /RCVRO2/RHQMAX/0THO/TDRO/BO/WSCO/NSO<A>/NGOI5l 
COMMON /RCVR03/PI/F(B/8)>FL25(4)/FSAMP/K/KM/TETHRD/NG/NS/JH 
COHHON/RC VR04/DELT/ E 0( 8 ) / GQGT ( 6 / 8 ) / H 1 5/ 8 ) / ICQUNT / SIGMA ' 

C 0MM0N/RCVRO5 /NOLO E/NQKL MN/ NOAC / GAMA ES ( 5).R0IAG(5I/PM0IAG(8) 

COMHUN/RC VR06/PP0I AG (0)/RMAT(5/5)/PHI(5/5)/PA(8/6J/LAHDAt5) 

C OMMON /RCVR07/T (130)/ V t 130 » 

• - C0MH0N/RCVRO8/XSL0E(8),ESL0E(8),ESt8J 

COMMON / RC VR09/ BRC VR/ B 8/ PDCRIT.CC 

COMMON /RCVR 10/ X SI ( 8 I / XS (8)' ” ' 

COMMON/ ML SO 00 /A L FA/THE/THEDOT/ALFAR/THR'/ THRDOT/ B / NSC 

' ' " COMKON/HLSOOI / C SNR T/CSNRF/OSNRDB/RHO/8ETA/FSC/LGMAX " 

COMMON /MLS 002 /DCS NR / C SNR/ LG/ TPKT/ T PKF 

COMMON /M LS003 / F L10AE (A/2)/FL10(A)/DELTAT(2)/X0(8/2!/YG{9/2) 

COMHON/MLSOOA/BMLS/BBB/MTIMES/MSET/MORE 

C 

10 CONTINUE 

• CALL MLSSU8 - “ " 

. IF (MORE ) GO TO 10 

END 

CM STORAGE USED jl3A SECONDS 
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■IS 


20 ' 


25 


‘ 30 


FUNCTION THA (T ) 

C THIS COMPUTES THE ANTENNA SCAN ANGLE AT LOCAL SCAN TINE T. 

C THE PARAMETERS OF THE SCAN WAVEFORM, HENCE THE 10 ENTITY OF 

C THE ANGLE FUCTION,ARE PASSEO THROUGH COMMON AND ARE DEFINEO 

' 'C ' ’ ’* AS FOLLOWS I 

C TR* TIME BETWEEN TRAVERSAL OF 2ER0 DEGREES IN A TO-FRO SCAN 

C TS«DURATION OF THE TO SCAN 

C TF-OURATIQN OF THE TO SCAN+INTERSCAN REST INTERVAL 

•' C THAMAX-ANTENA ANGLE AT BEGINNING OF TO SCAN 
C THAMIN-ANTENNA ANGLE AT END OF TO SCAN 

C 'QMEGA»ANr£NNA‘ANGULAR SCAN RATE, OEG/SEC, DURING TO SCAN " 

C 

COHhON/RCVROO/THAMAX,THAKIN,TS,TR, OMEGA, TF 
T1*TS+TF 

' * ■ IF(T.GE.O.O) GO TO 50 ' " 

THA-THAMAX 

“ RETURN - 

50 IFIT.GT.TSIGO TO 100 

THA-TKAMAX+OMEGA+T 

RETURN 

‘ ICO ~ ’ IF(T.GE.TF) GO TO 200 

THA-THAMIN 

' " RETURN ~~ ‘ 

2C0 IF IT.GT.T1) GO TO 250 

THA" THAMIN-QHEGA+ (T-TF ) 

RETURN 

' 250 " THA-THAMAX “ 

RETURN 

• - - eno “ - ’ ~ ‘ 
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60 


65 


70 


“ 75 


8U 


65 - — 


90 


-95 


100 


105 “ 


11U 


X0(4, IAE) -ALPKAR 

' XQ(7,IAE)«PI+BETA/160. ' ' • • - 

X0(6,lA£>*PI2+FSC 
TSAHP-l./FSAMP 
OELT ■OELTAT ( IAE ) 

F(2,3>-DfcLT " 

F(S,6)-DELT 

F(7,a)«0ELT • 

JM1-JM+1 

JM2-JM/2 — r " ~ 

TWW2«0.5+TSAMP+(JH2+1> 

'* DO 30 1*1,6 ' 

X ( I ) «X0 ( I, I AE ) 

30 '• CONTINUE 

CALL COKTRL 1 2 ) 

C FOLG CALLS RECtI VER__FOR INITIALIZATION 

K*0 

CALL RCVR ~ * 

C 

• C FOLLOWING BEGINS SIMULATION PER SE, LGMAX RUNS OF - KM SCANS EACH"' ' ' 
C 

CALL CONTRL (5) ' 

DO 777 MM SET-1, MT IMES 

MSET *MMSET ' ' 

C 

CALL CONTRL ( 6 ) - * ~ * ‘ “ ' 

. 00 1 LGG-1, LGMAX 

LG-LGG ' 

CALL CONTRL (7) 

DO 2 KK»1,KM • ’ - ■ , 

K»KK 

CALL CONTRL t B ) 

— IF'IK .EQl'l') GO" TO 122 

C 

■ C FOLLOWING' ADVANCES'THE TRUE STATE AND SAVE PRIOR VALUE 

C 

DO 100 1-1,6 ' ’ " 

X1(1)«X<I) 

100 CONTINUE 

- DO 120 1-1,8 

DO 110 J-1,8 

X(n-X<IMFU,J)*X1(J> 

110 CONTINUE 

120'~ CONTINUE' ' ' “ 

b*pvaLue<b,pi,o.> 

c " -■ • • - - 

C FOLG SETS THES PRIOR TO COMPUTING SAMPLE TIMES 

THES«XS(2)+DEIT*XS(31 " ' ' ' ~ 

IF ( .NOT « TETHRD ) GO TO 124 

122 "• CONTINUE' “ 

DO 123 1-1,8 

-• ~ - xsnn-x(i)-EOti) - 

123 CONTINUE 
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120 


125 


130 " 


135 


‘ 140 " 


145 


' 150 


155 


160 


165 


- • 170 ' 


THES*XS1(2) 

124 CONTINUE ’ 

C 

C FOLG BEGINS COMPUTATION OF SIGNALS ANO RELATED QUANTITIES 
C FIRST, CALCULATION OF CONSTANTS ON THE PRESENT SCAN 

C' ’ 

AL2*ALFA*+2 

" ‘ AR2*ALFAR*+2 

AA2*2.*ALFA*ALPAR 

TPS T • ( TH ES-THA MAXI+SECPD 

TPSF*TF+(THAMIN-THES)+SECPD 

TIT ■ TPS T”TW«2 - - - 

T2F*TPSF + TI|W2 

C FOLG COMPUTES FOR THIS KTH SCAN THE SIGNAL PEAK TIKES TPKT, TPKF AND 
C THE COMPOSITE SIGNAL-TO-NOISE RATIO CSNRIKJ 

TPKT*(X(2)-THAMAXI*SECPD ~ 

TPKF*TF+(THAMIN-X(2) I+SECPD 

c ' ■ ■ • ■ — 

C THAJ*THA(TPKT!*X(2I, BY DEFINITION 
C PJ“PHLS(THE-THAtTPKTI)*1.0, BY DEFINITION 
C AND SIMILARLY FOR TPKF 

PRJ*PHLS(X(5»-X (2) ) 

BT*PVALUE(B+WSC+TPKT,PI,0.) 

B F*P VALUE ( B+WSC+TPKF, PI,O.I 
0JT*AL2+AA2*PRJ+C0S(8T)+AR2+(PRJ+*21 
QJF»AL2+AA2*PRJ+C0S(BF)+AR2*( PR J **2 ) 

CSNRT *SQRT (QJT) 

CSNRF*SQRT (OJFI 

CSNRMN-AMIN1 (CSNRT, CSNRF) : 

CSNRMX-AMAX1(CSNRT,CSNRF> 

' CSNR*CSNRMN ' - - ■ 

DCSNR*CSNRMX-C SNRMN 

C ' ... .... • • — 

C FOLG INITIATES A J-LOOP TO COMPUTE SAMPLE TIMES AND (LINEAR ) 

C’ " ENVELOPE’SAMPLE VALUES 

C 

' ' 00 130 J«1',JH2 

TI NCR* J*TS AMP 

'JFR* JM1-J — - • 

INDEX (1I*J 

INDEX ( 2 ) *JFR ~ ~~ - 

C FOLG COMPUTES SAMPLE TIMES 

TJ-TZT+TINCR 

TIJI-TJ 

T { JFR ) -TZF-TINCR - “ ..... 

THAJ*THA(TJ) 

' “ 'PJ*PMLS(THE-THAJ> " * ’ " 

PRJ-PMLS(THR-THAJ) 

C FOLG COMPUTES ENVELOPE SAMPLES 

DO 127 1*1,2 

JVAL-INDEX(I) * " 

XNC»SQ22*GAUSS (0. ) 

XNS*SQ22+GAUSS(0.) * ' 

B LOCAL -P VALUE ( B+WSC+T < J VAL) , PI, 0. ) 

' QJ*AL2*( PJ**2 J+AA2*PJ+PRJ+C0S(BL0CAL)+AR2*(PRJ+*2) 
QJ*AMAX1(QJ,0.0 ) 


I 
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175 


180 


185 ‘ 


190 


195 ' 

4 


200 


SQRTQ2-2. *SORT( 0J> 

UJ‘aj4-SORT02 + XNC + XNC+*2+XNS**2 

V(JVAL)»SSQ2*SQRT(UJ) 

127 CONTINUE ' ' ‘ 

130 _ CONTINUE _ 

C FOLLOWING COMPUTES RECEIVER RESPONSES _ _ 

CALL RCVR . _ . . 

C FOLLOWING ASSIMILATES DATA FROH THIS SCAN FOR FUTURE EVALUATION 

CALL CONI RL ( 9 ) 

- ~2 " CONTINUE •* " 

C 

~ C FOLLOWING ASSIMILATES DATA’ FROM ' THIS" LG-TH SET OF SCANS 

C 

‘ “ CALL C0NTRU10)' 

1 CONTINUE 

’ C ..... 

C FOLLOWING ASSIMILATES DATA FRQM THIS MSET-TH SERIES OF LGMAX SETS OF KM SCANS 

c • _ 

CALL CONTRL ( 11 ) 

777 CONTINUE “ * * ~ 

C 

-~"C FOLLOWING' CLOSES'THE SIMULATION RUN 

C 

CALL CONTRL (12) — " ' ’ ' ~ 

RETURN • 



10O0B CM STORAGE USED " 1. 399 ‘ SECONDS" 
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5 


10 


15 


20 ' 


25 


' 30 


4 1000B 


BLOCKDATA KLS ~ 73/172 TS 


FTN 4.6+432 05/17/79 16.19.03 


BLOCK DATA MLS 

REAL LAMOA ' ... 

LOGICAL HOKLHN.NQLOE.no AC .KALMAN. LQ£,TE THRO, MORE 

COMMDN/IDOATA/IDNRS (6) ' " ' 

COMMON /RCVR01/NGHIN.NGHAX. DELBL.NGM. IR» IAE 

C OKMUN/RC VR02 /R HOMAX, DT HU,TDR0»80,WSC0,NS0(4),NGG(4) 

CDHMOH/RCVROB/Pl.Fte. 8 ). F L25 ( 4 ) . FSAM'P. K.KK. TETHRO, NG» NS, JM 
CQMMDN/RCVft04/OELT,EO(8),GQGTt8,B),H(5>8),ICOU NT, SIGMA ' 

COMMON/ RCVRO5/NOLOE.N0KLMN.NQ AC. GAMAES 1 5 ). RD IAG { 51 . PMO I AG { 0 > 
C0KMGh/RCVR06/PPDlAG(8) > RHAT (5,5),PH1(5,5),PA(B,8),LAH0A(5) 

_ C0MM0N/RCVR09/ BRCVR.BB.PDCRIT.CC 

COM MON/MLS 00 1/CSNRT.CSNRF.DSNRD8.RH0.BETA.FSC.LGMAX 

C0MMON/MLSO03/FL10AE(4.2) , FL10 <4 ) , DELT AT <2 >, XO ( 8,21, TO ( 4, 2) 

CQMMON/MLSO04/BHLS.8B8.HTIHES.HSET.MORE 

DATA PI/ 3. 1415927/, F/64+0. /,0SNRD8/20./»RHQ/.5/ 

DATA 0 EL TAT/.07 4074074,. 02 4691358 /.SIGMA/. 7071/ 

DATA X0/0..30., .35,0., 32, 75, -.35,0. ,0.» 

* 0 * , 10 . , 0 . , 0 . , 12 . ,- , 9 , 0 . , 2 . / 

DATA YO/62. 666667,-62., 6. 233333E-3, 6. 6E-3, I 

+30. 666667, 0. , 1. 533333E-3.0.4E-3/ ■ • - ■ 

DATA 

■ ■ “ ----- data 

DATA 

DATA 

DATA 

■■■■—• - DATA 

DATA 

’ " DATA 

DATA 

DATA 

DATA 
DATA 
END 

CH STORAGE USED 


FL10AE/.5.0.,-. 5,0.,. 25,0., -.75,0,/ 

FL 2 5/. 34 831,. 340 31, -.30336,0./ 
JM/130/,TETHRD/.FALSE./,KM/100/,FSAHP/1.6E5/_ 
H/l.,3 + 0.,1.,10+0.,1., 5*0 .,1.,10*0.,1.,5*0./ 
NSD/2,8,6,3/,NGQ/2,5,4,2/ 

DEL0L/.O1/.EO/B+C./ 

GQGT/64+0./, PA/64+0./ 

RHQMAX/.8/,DTH0/2.75/,TDRO/0.0/,B0/0.0/,WSC0/0.O/ ' 
NOLOE/. TRUE. /.NOKLMN/. FALSE. /.NO AC /.TRUE./ 
IAE/l/,FSC/51.3O/,BETA/-168.0/,LGMAX/l/ 

B MLS /1.0/,BRCVR/1.0/,MTIMES/1/, MORE/. TRUE./ 
IDNRS(5>/1/ 


.209 SECONDS 


PAGE 
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SUBROUTINE DF L TR1 ( X> Y> C ) 

DIMENSION CIA) 

S * X-C I 3 ) +C I A ) 

Y»C(1)+S+C(2)ACIA) “ 

5 C(A)«S 

RETURN 

END 

A1000B CM STORAGE USED ,0A3 SECONDS 
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10 ’ * ' 


•15 


20 


25 


-• 30 ' 


35 


*0 


95 


50 


55 


SUBROUTINE RCVR 

■ • REAL LAMDA.MJM2 ' 

LOGICAL NOKLMN, NOLOE.NO AC* KALMAN, LOE, TETHRD 

CQHMON/RCVROO/THAMAX,THAHIN,TS,TR,OHEGA,TF 

C0MMQN/RCVR01/NGMIN»NGHAX»DEL8L,NGK, IR, IAE 
" C0MHON/RCVRO2/RHOMAX»DTHG,TORO,8Q,WSCO,NSO(9),NGO(9) 

CQMM0N/RCVRO3/PI,Ff B,8),FL25(9)»FSAMP,K,KM,TETHRD*NG»NS, JH 
CQHHON/RCVRO9/DELT.EQ(8),GQGT(6»BI,Ht5»0)>ICOUNT,$IGHA 
COHMON/RCVR05/NOLOE,NOKLHN,NOAC,GAHA£$(5),ROIAG(5I>PMOIAG<8) 
” ' ' ' CQMMQN/RCVR06/PPDIAG(B),RMAT(5»5).»PHI(5,5),PA(B»8)»LAM0A(5) 
CUMH0N/RCVR07/T (130I,V(130] 

COMMON/RCVROB/XSLOE<8),£SLOE(6),ES(B) 

C0HH0N/RCVR09/BRCVR, B6. POCRIT.CC 
C0HMCN/RCVR1Q/XS1<8)»XS(6) 

COHHON/HLSOOO/X (3) 

■ ' DIMENSION TPA1(8,8),PHT<8>5),TPA2{8,8),IVNG(5) 

DIMENSION RVNG(5),GAIN(8.5I 

C ' ' ' ' * " ... 

IF (K .GT. 01 GO TO 90 

C FOLG IS INITIALIZATION ' 

PI2-2.+PI 

' SS2-.5/ISIGMA++2) , 

CALL PHILM 

— ' NS *NSO ( IR ) ” ' ' ■ 

NG-NGO(IR) 

‘ ‘ ‘ NGMIN*2 ‘ ‘ ’ 

NGMAX*NGD< IR) 

G0GT33*.01»DELT 

G QGT (3>3)»GQGT33 

’ ’ GQGT ( 6,6 ) »GQGT33 ' 

GQGT{8,fl)*.C9/(DELT+*2) 

•DO 20 I-l.NS - " " ' 

DO 10 J»1,NS 
PAU,J)*0. 

10 CONTINUE 

20 ' 'CONTINUE • ~ 

CALL C0NTRK3) 

BB*2.9/BRCVR ... 

. PDCRIT«PI*BB/8. 

CC«PI*POCRIT 

IF ( IR.GT .0 ) GO_ra_ 30 _ 

NG»NG0(9) 

30 ' ' CONTINUE — " - ~ 

NGM-NGMIN 

' IFtNOAC) NGM-NG ' ... 

KALMAN*. NOT. NOKLMN 

LOE*.NOT .' NOLOE 

CALL CQNTRL(9) 

RETURN ... 

90 CONTINUE 

• IFtKiGT.ll GO TO 50 ’ T '* 

C DIAGNOSTIC OUTPUT 'OF~INPUT 'DATA' FOR - K-l GOES ' HERE ' • 

C 

GO TO 90 

50 CONTINUE 
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60 


o5 


70 


75 


60 


85 


90 


“95 


10(J 


l'J5 


. 110 


SUBROUTINE RCVR 73/172 TS ' FTN 4.6+452 " ~ 05/17/79 16.19.37 ' PAGE 


C FOLG EXTRAPOLATES STATE ESTIMATE. AS REQ,D 

I F ( TETHRD) GO TO BO 

DO 70 1*1. NS 

' ‘ ' XSKII-O, ' 

DO 60 J *1, NS 

xsi < i ) “XSi ( I )+f (i.Ji+xstJ) 

6C CONTINUE 

70 ‘CONTINUE - • ■ 

BO CONTINUE 

90 ' CONTINUE ' 

C 

~ " ’ GO GT 11* AHA XI (.25».01+(XS1(1)**2I) 

GQSTd.ll-GCGTll 

GQGT(4,4I*GQGT11 

C 

C FOLLOWING COMPUTES VECTORS Q ( JH) , HV< JM I , LAMDA(NG) , AND MATRICES DT ( JH, 

C NG ) , PHI ( NG, N5 I ALSO SQUARED AMPLITUDE ENVELOPE VECTOR U{ JM I , AND 

- " C INOVATIONfS PROCESS VECTOR W(JM) ' 7 

C ( 

CALL PHILM ‘ ' 

IF (NOLOE) GO TO 120 

C .... _ . . . . 

C FOLG COMPUTES RKAT* PHI-INVERSE AND THE LOE 

‘ ‘ CALL MATINV(RMAT,5,NG, IVNG, RVNG) ' ' ' ' “ 

DU 100 1*1. NG 

‘ ‘ “ * RDIAG (I>-RNAT (I. II " ' 

100 CONTINUE 

' CALL' HATMUL t5.NG,NGj. 5, NG, 1,5.1, RHAT, LAUDA, GAMAES,1) 

CALL HATMUL ( 5, NG, NS, 5, NG, 1, 8, 1, H, GAH AES, ESLOE, 2 I 

DO 110 I-l.NS ■ . 

XSLOEtI)-XSl(I)+£SLOE(II 

IF (NOKLMNI XStll-XSLOEdl 

110 CONTINUE 

120 ' CONTINUE “ . . . .. 

IF (NOKLMNI GO TO 170 

' C ' ' ” ‘ ‘ 

C FOLLOWING EXTRAPOLATES STATE ESTIMATES, ERROR 

’ — ’ C ' ’ COVARIANCE' MATRIX PA(NS.NS) .... ' 

C 

‘ “'CALL MATMUL(8,NS,NS,8,NS;NS»0,'6,PA,F,TPA1,3) " ' 

CALL HATMUL ( 8, NS, NS, 8, NS, NS, 8, 8, F, TP Al, PA, 1) 

.. ‘“CALL MATSM ( PA, PA^GQG T, 1, 8, 8, 8.NS.NS, 8, NS, NS.OI — . — 

00 130 I»1,NS 

“ PHD I AG (I)-PA(I,I) 

130 CONTINUE 

C FOLLOWING COMPUTES MODIF IEO-KALMAN GAIN MATRIX GAIN(NS,NG) 

CALL MATMULI8,NS,NS,5,NG,NS,8,5,PA,H,PHT,3) 

' ' ' CALL MATHUL(5,NG,NG,5,NG,NS,B,E,PHI,H,TPA1,1| 1 ' 

CALL MAT MUL ( 6, N G, NS, 6,N5, NG, 8, 8, TP Al, PHT, TP A2, 1) 

00 140 1*1, NG 

TP A2 11, I)*T PA 2(1,11 + 1. 

140 -- CQNTINUe - 

CALL MATINV(TPA2,6,NG,IVNG,RVNGI 

“ CALL MATH UK 8, NS, NG, 6, NG, NG, 8, 5, PHT, TPA2, GAIN, 1) 

C 
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115 C FOLLOWING UPDATES STATE ESTIMATE 

’ CALL MATMUL ( 8, NS , NG/ 5/ NG/ 1/ 8, 1/ G A IN/ L AMOA/ ES/ 1) 

CALL MAT SM t XS> XS l> ES/ 1/ 8, 1 , 8, NS. 1/ 8/ NS » I/O ) 

" " ‘ ' * ' C 

C FOLLOWING UPDATES STATE ESTIMATE /ERROR COVARIANCE MATRIX 

120 C P(NS/NS> " ■" • 

C 

call MATHULI8/NS/NG/8/NG/NS/8/B/GAIN/TPA1/TPA2/1) ' " ' 

00 150 I *1/ NS 

TPA2(I,n-TPA2<I,I)-l,' ” ' ' •’ ' 

125 150 CONTINUE 

CALL MATMUL(B/N$/NS/8/NS/NS/8>8/PA/TPA2/TPAl/3) 

CALL MATMUL(8>NS/NS>8/NS/NS/8, 8/ TP A2> T.P AI / P A, 1 ) 

— CALL MATMUU5/NG/NG/8/NS/NG/8/8/PKI/GAIN/TPA1/3) * " 

CALL MATMUL<8/NS/NG/8/NG/NS/8/8,GAIN/TPAl/TPA2/l) 

130 CALL HAT$M(PA/PA/TPA2/l/8/8/8/NS/NS/8/NS/N$/0> 

DO 160 l*l/NS 

.. . pp0UG ' ( I ) «PA( I, I) 

160 CONTINUE 

— - ■ 170 " CONTINUE ' - ' 

135 IF ( NS.GE. 7) XS (7 ) »PVALUE IXS t 7t/ PI»0. » 

return • ’ - : 

END 

410008 CM STORAGE USED 1_.082 SECONDS 
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aLOCKCATA DR VR ID 73/172 TS 
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block data orvrid 

' ' "■ ' COMMON /1D0ATA/IDNRS (6) 

DATA IDNRStAI/2/ 

END 

A1000B CH STORAGE' USED ".01A SECONDS 
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SUBROUTINE RCVR 
REAL LAMDA> MJH2 

LOGICAL NOKLMN. NOLOE.NOAC* KALMAN, LOE.TETHRD 

COMMON /RCVROO/THAHAX, THAMIN»TS,TR»OMEGA»TF 

5 C0MK0N/RCVR01/NGHIN,NGMAX,DELBL,NGH, IR, IAE 

CQMM0N/RCVR02/RH0HAX, DTHO, TDRQ, B 0, WSCO, N$0 t * ) , NGO < A > 

. . _ COKKQN/RCVR03/PI>F(8,8I»PL25<A)»FSAMP»K,KH>TETHRD»NG>NS>JM 

COMHON/RCVROA/DELT,EO(8>,GQGT18,8>,H(5»8),ICOUNT,SIGHA 
COMMON/RC VR05/NOLOE, NOKLKN, N0AC,GAHAE$(5),RDIAG(5),PHDIAG(8) 

10 COMHaN/RCVR06/PPOIAG(8t»RKAT<5»3),PHI(5,5>,PA(8>e),LANDA<5> ■ 

COHMON/RC VR07/T ( 130 ) » V( 130 ) 

COMHON/RCVR08/XSLOE(8),E$LO£<8),ES(8) 

C0HH0N/RCVR09/ BRCVR, BB,PDCRIT,CC 
" CQHM0N/RCVR10/XSHeJ»XS<8> ‘ 

13 COHHON/HLSOOO/X18) 

DIMENSION TPA1(8,B),PHT(8, 5). TPA2 < 8 , 8 > , I VNG ( 5 ) ' 

DIMENSION RVNG( 5)»GAIN(8»5) 

' C 

IF (K .GT. 0) GO TO *0 
20 ' ' ‘ C FQLG IS INITIALIZATION 

PI2-2.+PI 

SS2-.5/($IGHA**2> ‘ " ‘ “ 

CALL PHILM 

NS*NS 0( X Rl ' 

25 NG*NGOtIR) 

NGMIN-2 * 

NGMAX-NGO(IR) 

... "GQGT33».01*DELT ........ . ... 

GQGT(3,3>*GQGT33 

”30 “ 6QGT<6,6)»G0GT33 

GQGT(8>8»-.0*/(0£LT++2) 

' ‘ * DO 20 I-1,N$ ' ' ' ‘ ” ... 

DO 10 J«1,NS 

PA(I,J)»0. . . . _ . 

35 10 CONTINUE 

20 ‘ CONTINUE ’ 

CALL CONTRLO) 

BB-2.A/BRCVR • - ..... 

. PDCRIT*PI»BB/6. 

*0 CC*PI*POCRIT ’ 

IF(IR.GT.O) GO TO 30 

‘ NS*NSQ(A ( 

NG»NGQ(A) 

~ ‘ 30' ' CONTINUE - - ■ 

*3 NGH-NGMIN 

IFINQACI NGK-NG . . 

KALMAN*. NOT. NOKLHN 

— ’ ' LOE«.NQT. NOLOE ‘ ’ “ ’ ~ ' 

CALL CONTRL (A ) 

50 ' RETURN 

*0 CONTINUE 

IF IK.GT .\)~G0 TO 50 ' 

C 

C DIAGNOSTIC OUTPUT OF' INPUT DATA FOR'K-l'GOES HERE' ' *“ 

55 C 

GO TO 9P 

30 CONTINUE 
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C FOLG EXTRAPOLATES STATE ESTIHATE, AS REQ,D 

IFITETHRD) 60 TO 80 ' " ” 

00 70 I-1,N$ 

XSltD-O. 

DO 60 J*1,NS 

XS1CI>»XS1<I)+FU,J)*XS(J» 

60 CONTINUE 

70 CONTINUE 

80 CONTINUE 

90 CONTINUE " ■ 

. C . . ,, 

GQGT11*AHAX1(.Z5,.01'MXSH1)**2) J 
GQGTll.D-GQGTll 
GQGT(4,4)-GQGTll 
C 

C FOLLOWING COMPUTES VECTORS Q< JM)»HW( JH I » LAMDAl NG) , AND MATRICES DT { JH, ' 
C NG),PHI(NG,NS) ALSO SQUARED AMPLITUDE ENVELOPE VECTOR U(JH)>AND. . . . 

C INOVATION; S PROCESS VECTOR W(JH) 

C 

CALL PHILM 

IF CNOLOE) GO TO 120 
C 

C FOLG COMPUTES RMAT*PHI- IN VERSE AND THE LOE 
CALL HATINV(RMAT»5,NG, IVNG.RVNG 1 
DO 100 1*1, NG 
ROIAG (Il-RMAT <I,I) 

100 CONTINUE 

CALL MATHUL (5, NG, NG,5> NG, 1, 5,1,RMAT,L AMDA, GAMAES, 1 ) 

.. CALL MATHUL (5, NG, NS,5,NG, 1, 8,1,H, GAMAES, ESL0E,2> .. „ 

DO 110 1*1, NS 

XSLOE tl )«XS1(I)+ESL0E(I) 

IF ( NOKLMN ) XStn-XSLOEtlJ • 

110 CONTINUE 
120 CONTINUE 

IF (NOKLMN) GO TO 170 
C 

C FOLLOWING EXTRAPOLATES STATE ESTIMATES, ERROR 

C COVARIANCE MATRIX PAINS.NS) 

C 

CALL HATMUL ( 8,NS,NS, 8, NS»N$»8/8» PA, F, TPA1/3 ) 

CALL HATHUL(8,NS,NS,8,NS,NS,8,6,F,TPA1,PA,1) 

CALL MATSH(PA,PA,GQGT,1,8,8,B,NS,NS,8,NS,NS,0) 

DO 130 1*1, NS 
P MO I AG ( I ) *P A ( 1 , 1 1 
130 CONTINUE 

C “ " ‘ ‘ ' ' ' 

C FOLLOWING COMPUTES HODIFIED-KALHAN GAIN MATRIX GAIN(NS,NG) 

C 

CALL MATHUL ( 8, NS, NS, 5, NG, NS, 8, 5, PA, H, PH T, 3) 

CALL MATMUL<5,NG,NG,5»NG,NS,8,0»PHI,K,TPA1,1> 

CALL HATMUL(8,NG,NS,8,NS,NG,6,e,TPAl,PKT,TPA2,l) 

DO 140 I *1, NG 

TPA2 U,I)«TPA2[I,I> +1. 

140 CONTINUE 

CALL HATINV(TPA2,8,NG,IVNG,RVNG) 

CALL HATMUL16,NS,NG,8,NG,NG,8,5»PHT»T PA2,GAIN,1) 

C 
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O' 

CO 


C 


C 

c 

c 

c 


125 _150 


' 130 


160 

’ - - 170 

133 


190 


!95 


150" 


115 


"120 


FOLLOWING UPDATES STATE ESTIMATE 
CALL MATMUL ( 8, NSfNG, 5 , NG> 1, 8, 1,6 AIN, L AMDA, ES» 1 ) 

CALL MATSM ( XS, XS1 , ES, 1,8, 1, 8, NS, I, B , NS , 1, 0 1 

FOLLOWING UPDATES STATE ESTIMATE , ERROR COVARIANCE MATRIX 
P (N$»NS ) 

CALC MATMULt8,NS,NG,8,NG,NS,e,8,GAIN,TPAl,TPA2>l» 

DO 150 I *1, NS 

TPA2(I,I).TPA2(I,I)-l, ' ' ... 

CONTINUE 

CALL MATHUL(8,NS,NS,8,NS,NS,8»8»PA,TPA2,TPA1»3) 

CALL MATHUL(8,NS»NS»6»NS,NS,8,8»TPA2»TPA1,PA,1) 

CALL HATHUU3,NG,NG,B,NS,NG,8,8,PHI>GAIN>TPA1, 3) 

CALL MATMUL(8>NS,NG,8,NG,NS,8,8,GAIN,TPA1,TPA2,1) 

CALL MATSM(PA,PA,TPA2,1, 8,8,8, NS,NS, B,NS,NS>0) 

DO 160 1*1, NS 

PPOIAG <II*PA(I,I)' 

CONTINUE 

CONTINUE " ' " 

XS(1)-ABS(XS(1I) 

AN*UHAMAX+THAMIN)/2. 

XS(2)*SATU{XSt2)-AN>( THAM AX— THAMIN) /2. ) +AN 
IF (NS,GE,3 ) XS<3>*SATU(XS(3>,1.) 

IFINS.GE.9) XS(9)-SATU(ABS(XS<9n#2*XS(l)) 

MJ M2* Ft OAT <-( JM/2+1) ) 

THKW2*HJM2+0MEG A/ (2.+FSAMP ) 

AMX* XS ( 2 ) +THWW2 
ANN* XS t 2 1 -THWW2 

AN2* (AMX+AHN1/2, * ' * 

IF (NS.GE.5 l XS ( 5) «SATU( XS ( 5 )-AN2» ( AMX-AHN) /2. ) +AN2 
I F INS.GE. 6 ) XS<6)*SATU(XS(6 )f1.) 

IF INS.GE. 7) XS (7)*PVALUEIXS(7)»PI/0.) 

IF INS.GE. 8) XS(6)*PVALUE<XS(8),PI/DELT,O.I 
RETURN 

END ’ ' ' 


’ 91000B CM STORAGE USED 1.381 SECONDS 



OPTRVR 
Page 3 of 4 



A-69 


BLOCKOATA ORVRID 


73/172 TS 


BLOCK DATA ORVRID 
CQHHON /IODATA/IONRS161 
OATA I0NRS<4>/2/ 

END 

AlOOOB CH STORAGE USED ’ .015 SECONDS 




OPTRVR 
Page 4 of 4 



A- 70 
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.. 15 


20 


25 


30 


... 3 5 


40 


.45 


50 
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SUBROUTINE PHILM 73/172 TS 
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SUBROUTINE PHUH 
C 

CTHIS SUBOPTIMAL VERSION OF PHUH IS 
C BASED ON A 4-ELEMENT PARAMETER VECTOR 

.CA AND PROVIDES A CRUDE SEARCH ANO ACQUISITION - 

CA FUNCTION ACCESSED AS FOLLOWS 

CASEARCH MODEiNGM*NGMIN 

caacouisition modeingmin.lt.ngm.lt.ngmax 

CAFULL .TRACK. H00EINGM»NGHAX 

C 

C ” THIS NEEDS' NGHIN.LE.NGH I.LE.NG1 .LE.NGHAX " ~ ‘ ~ ~ 

REAL LAHOA 

LOGICAL NOKLHN>NOLOE»NOAC>KALMAN,LOE>TETHRD 

C0MM0N/RCVR01/NGHIN,NGMAX,0ELBL,NGM,IR,IAE 

COHHON/RCVR02/RHOHAX+OTHO»TORO.BO»WSCO»NSDI4»>NGO<4) 

C0MM0N/RCVR03/P 1/ F(8>8)»FL25(4)>F$AMP>K>KMjTETHRD>NG>NS>.lH .... 

C0HMON/RCVRO4/DELT> EO t 8 ) i GOGT I 8» 8 > » H t 5> 8 ) » ICOUNT/S IGMA 

COMMON/RCVR05/NOLDE»NOKLMN,NOAC>GAMAES(5I,RDIAG(5)#PMDIAG(8) 

C OHHON/RC VR06/PPDI AG ( 8 ) > RHAT ( 5> 5 >>PHI15>5)»PA(8»8)>LAMDA(5) 

COMMON /RCVR 07/ T( 130 ),V( 1301 

COMMQN/RC VR10/ ALFA* THE S> THE SDT#ALFAR/THRS» THRSDT»B» WSC+XS ( 8 1 

. D IHENSION PH(4,4),RL(4) 

EQUIVALENCE ( RL1* R L 1 1 )! * I RL2* RL 1 2) ) > < RL3> RL (3 )) > IRL 4, R L ( 4>l 
. EQUIVALENCE I PH11, PH 1 1* 1 )) ,< PH21, PH(2» 1 H *< PH22* PHI Zt 2 ) > > 

* (PH31»PH(3>l))j(PH32>PH(3>2))>(PH33»PH(3<3))> 

* tPH41>PH(4»l))>lPH42#PHI4»2))»(PH43»PHI4»3M»IPH44»PHt4>4I) 

C 

C POLL OWING EFFECTS INITIALISATION ~ " 

C 

IFIK.GT.O) GO TO 10 

JH2» JH/2 

JMl-JM+1 

$S2>.5/<SIGMA+*2> . . . 

IR*3 

RETURN 

10 CONTINUE 
CA 

CA FOLLOWING PROGRAMS THE SEARCH 

• CA . , . 

I F ( NGH.GT .NGMIN) GO TO 30 

alfar.alfa*rhohax 

THRS-OHES-DTH0 
THR SDT *TDRO 
B«BO 

• _ WSC*W$CO ... . . . .... 

30 CONTINUE 
C 

C FOLLOWING COMPUTES CONSTANTS FOR PRESENT SCAN 
C 

AL2«2.+ALFA 

AL22«AL2*ALFA 

AR2»2,*ALFAR 
AR22»AR2*ALFAR 
AA2-AL2+ALFAR 

NGDEL‘NGH-NGMAX _ 


. PLSUB 
Page 1 of 8 
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SUBROUTINE PHILM 73/172 TS 


FTN 5.6+552 05/17/79 16.20.18 PAGE 2 


60 


65 


. 70 


75 


80 . 


85 


90 


95 


100 


105 


110 . _ ... 


DO 35 I*1*NG ..... 

RL { I ) « 0 . 

DD 35 L - 1> I . 

35 PH(I,L)*0. 

35 CONTINUE . .... 

C 

C FOLLOWING INITIATES LOOP AND COMPUTES FUNCTIONS 
C FOR' EACH J 

. C , 

00 60 J I * 1* JM2 

THA J-THA <T ( J I ) > - . - 

THEE-THES-THAJ 

P J-P (THEE 3 , . 

PDJ-PDOT(THEE) 

. P2J*PJ++2 . . . _ 

THER-THRS-THAJ 

. .. . PEJ-PtTHER) ... 

P DR J* PDOT t TKER } 

PK2J-PRJ++2 . . 

PPRJ»PJ*PRJ 

. , .. . QAJ*.5+AL22*P2J . '. ... . , . . 

BA«0. 

.... DAJ1*AL2+P2J ..... .. , 

DAJ2*AL22+PJ+P0J 
0601*0. 

06 J 2*0 . 

• IF (NGOEL .LT. 0) GO TO 50 
CAJ-OAJ+.5+AR22+PR2J 

. .. 0BJ*AA2*PPRJ . . 

BA*SIGN<0.9B99999>QBJ) 

If (QAJ.GE.l.E-38) BA*S IGN t AM INI ( 0 .9899999# ABS < OBJ I /QA J ) , OB J ) . 
DBJ1*AR2+PPRJ 
. .. 6BJ2»AA2*PDJ*PRJ . 

DAJ3-AR2+PR2J 

DBJ3“AL2+PPRJ . . , . 

DAJ5-AR22+PDRJ+PRJ 
. 06J5*AA2*PJ+PDRJ 

' 50 CONTINUE 

. _ CAJ*AMIN1I0.9999999EB»QAJ1 

0AJ*AMAX1<0. 1>0AJ) 

_ „ U1-SS2*V(JI)+*Z 

U2*SS2+V(JMl-JI)*+2 
.. CALL WAWOJ <WA1»WB1,QAJ»BA,U1) 

CALL WAWBJ (WA2>WB2,0AJ,BA,U2) 

. . .. WA-KA1 + WA2 
WB*W81+WB2 

CALL SWFCNS ( S A> SB, RAB, OA J, BA ) ... . „ . 

RAB1«RAB+1. 

RLl'*RLl + DA.tl + WA + DBJl*VB . . 

R12»RL2+0AJ2*WA+0BJ2+WB 
SDA1-DAJ1+SA 
S DA2*DA J2+SA 

.. . SDB1*DBJ1*58 ...... .... ... 

,■ S08 2“08 J 2* SO 

DS01*SDA1-S0B1 , 

DSD2-S0A2-S0B2 

PKU*PHll+0SDl + *2+RABl + 2.+SDAl*SDBl 


I 



€3 - - 

J* 0- 

r~ m 
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SUBROUTINE PHILH 73/172 TS 


FTN 9.6+952 05/17/79 16. 20. IB PAGE 3 


115 


120 


125. . 


130 


135 


' 190 


. 195 


150 


. PH21*PH21+DSD1+DSD2+AAB1+ISDA2+S0B1+S0A1*SDB2> 
PH22-PK22+DSD2++2+RA81+2.+S0A2+SDB2 
.IF 1NG0EL . L T • 01 GO TO 50 
RL3*RL3+DAJ3+WA+DBJ3+VB 

. . RL9»RL9 + 0AJ9+WA+DBJ9m. , 

SDA3»DAJ3+SA 

5DA9*0AJ9+SA . ... 

SDB3-DBJ3+SB 

SCB9«DBJ9+5B ... 

OS03-SDA3-SD83 

DS09-SDA9-SDB9 ....... 

PH31»RH31 + OSD1 + DSD3+RA81 I MSOA3*S081 + SDA1 + SDB3) 

.. PH32"PH32+D5D2*0S03 + PAI!1*(SDA3*S082+S0A2*SD83>. ’ 
PH33.PH33+OS03++2+RAB1+2.+SOA3+SDB3 
. . PH91»PH91+OSDI*OSD9+RAB1*(SOA9+SDB1+SDA1*S089) . . 

PH92»PH92+0SD2*0SD9+RAB1*<SDA9*SDB2+S0A2*SDB9) 

. PH93*PH9 3 + DS03*DSD9 + RAB1'MSDA9 + SD83 + SDA3 + SDB91 
PH99*PH99+D$D9+*2+RABl+2.*SDA9*SDB9 
50 CONTINUE _ 

60 CONTINUE 

C 

C FOLLOWING COMPUTES VECTOR LAHDAINGJ AND HATRICE PHI tNG>NG I 

C . .... 

DO 110 I •!» NG 
LAHDAt I ) *RL ( I ) 

DO 100 L*1,I 

. , PHILI-2.*PH(I>L) 

PHI ( l> I ) »PHILI 

. . . PHI (I,L)*PHILI . . „ 



IF < NOLOE ) GO TO 90 
RHATtL, IWHILI 


90 

RMATt I>L)*PHILI 
CONTINUE 


100 

CONTINUE 


110 

CONTINUE ,. 



RETURN 

ENO 




910008 CM STORAGE USED 


1.381 SECONDS 


PL SUB 
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. 5 


10 


15 


20 


25 


30 


35 


40 


45 


. 50 


55 


SUBROUTINE WA WO J 73/172 TS 


FTN 4.64452 05/17/79 16,20,18 PAGE 1 


C 

c 

c 

c 

c 

SUBROUTINE VAWBJOJA.WB, QA,B,U) 

CTHIS COMPUTES A SAMPLE EACH OF THE PROCESSES WA 7. WBj 
. CGIVEH SAMPLES OF QA,0, AND U 
•LOGICAL NFIRST 

DIMENSION HA(11),HB(11),C0SBI11),G(11),H(11>„ . 

DATA LMAX/10/, NFIRST/. FALSE./ 

C 

IF(NFIRST) GO TO 10 

. . . . LMAX1-LMAX+1 

RLMAX1*LMAX1 

ALNLMX'ALQGIRLMAXl ) 

BET A2"3. 1415927 /LMAX 
. 00 5 L-1.LMAX1 
CCSB<L)*COSf<L— 1)*BETA2) 

5 . . CONTINUE 

NFIRST*. TRUE. 

10 . . . CONTINUE . . . .... 

GMAX — l.E + 322 
. HMAX* 1 , . 

HAMAX-1. 

HDMAX*1, . . 

DO 20 L * 1, LHAX1 

COSBL*COSB(L) . 

C BCBL1*AMAX1(1.+B*C0SBL»0.) 

_ BCBL1*1«+B*C0SBL 
ABC-QA+BCBL1 

. _ . UABC»U*ABC . . . 

RAD*2.tSQRTIUABC I 

. . . . RAD1*SQRT(1.+UA8C) . . . . 

GL*2.*(RAD1-1./ (l.+RAO) )-A8C 
. G(L)*GL 

HL*1./S0RT(1,+6.28318464RAD) 

H t L J - H L 

HAL* (“1,+U/RADl J *HL 
. HAID-HAL 
HBL»HAL*COSBL 
HB ( L I *HBL 

GMAX-AMAXKGL/GMAX) 

HMAX-AHAX1 (HL.HMAX I 
HAMAX-AMAXltABS (HALI.HAMAX) 

H BMAX ■ AHAX1 ( ABS I KBL ) , HBMAX t . , .. 

20 CONTINUE 

GZ-GMAX-741. 

F 2 » ALOG I HMAK ) + G Z 

GM-FZ+ALNLMX 

G2.GZ+ALNLMX 

. GMA*GZ+ALOG(HAMAX> 

CMB*GZ+ALOG(HBMAX) 

F S * 0 . 

FSA-O. 

FSB*0 


I 



& 
•ar 

“O 63 

2 

£ 

(O -0 
c > 

> ©i 

r- m 

M- .. . 
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SUBROUTINE WAWBJ 


73/172 TS 


FTN 9.6+952 


BO. 

‘ “65 ' 
70 

91000B 


05/17/79 16.20.ie’' PAGE™ Z 


00 30 L*1»,LMAX1 . . 

Gl *G { L ) 

GLK-Gl-GM ‘ 

GLHA»Gl-GHA 

. GIKB*GL-GHB . . . „ 

IF(GLM.GE.-679. > FS*FS+EXP(GLH)*H(L) 

... IF (GLMA.GE.-679. ) FSA-F S A+EX P < GLMA ) *KA ( 1 1 

IF1GL MB. GE. -679.1 PS B«F SB+EXP (GLMB 1 *HB ( L I 

30„ . CONTINUE’ ... 

WA»(HAKAX/HMAXI+<FSA/FS) 

_ WB* (KBMAX/HMAXl+tFSB/FS 1 .. ... 

RETURN 

END .... 


CM STORAGE. USEO .951 SECONDS 


PLSUB 
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SUBROUTINE SWFCNS 73/172 TS 


FTN A .6+^52 05/17/79 • 16.20.16 PAGE 1 


C .... 

■ C 

c ' 

c 

.5 . . C 

C 

SUBROUTINE SWFCNS < HWAJ»HWBJ#RA8J>QAV, BA) 

INTEGER FNA ( 4 ) 

LOGICAL NFIRST 

10 DIMENSION BULKll2>25<3)>OA(25)»B(25)>OEX(24)»DEY(ll) 

DIMENSION AA<3)/BB(3)jCC(3)»DD(3).APPVA(3) 

DIMENSION OAB(25,2),OB(2),IOBMAX(2)>IOJB(2) 

EQUIVALENCE ( OA ( 1 ) > QA B ( 1, 1) ) » ( B< 1) , OA B 1 1# 2 ) ) 

EQUIVALENCE tIQMAX,I08MAX(l>)>(JBMAX*IOBMAX(2)) 

.15 . . EQUIVALENCE ( 10. IQUO ( 1 ) ) t ( I B, 1 0 JB ( 2 )) , t BV> QB ( 2 >> 

DATA FNA/lQHMlSL0GSWCDjlLC/2*0/ 

DATA NFIRST/. FALSE./ . ... 

C 

C FOIG GENERATES TABLE FROM DATA FILE 
20 C 

IFtNFIRST) GO TO 10 
NFIRST* .TRUE • 

IX*IATTACH(6LTAPE12/FNA»2LID> 6RM3497E ) 

IF (IX.EO.O) GO TO 5 

25 CALL INTI0(6HIXAT12»IX<1>1! 

SIOPAINPUT FILE ATTACH (TAPE12) NOT SATISFACTORY!" 

. 5 CONTINUE 

REAO (12) IDUM,IDUH 
. REAO 112) IOMAX, <0A(I),I*1> IQMAX) 

30 READ (12) JBMAX, (BI J)» J*1»JBHAX> 

READ (12) <((BULK(J»I*K).J*l*JBMAX)>I"l*IQMAX)jK*l/3) 

IQM1*I0MAX-1 

00 3 I*1,I0H1 

3 DEX ( I ) “QA ( 1 + 1)— QAt I ) 

35 JBK1*JBKAX-1 

DO 6 I-l.JBMl 
6 0EY<I)*B(I+1)-B(I> 

IO*IOMAX/Z 
IB* JBMAX/2 

40 CALL RETURN(6LTAPE12) 

... 10 . CONTINUE 

C 

C FOLG TRUNCATES ARGUMENTS AND HANDLES SMALL BV CASES 
C 

45 BV*ABS(BA) 

IF (BV .GE. .01) GO TO 20 

HWAJ-1./SQRTU.+2.+QAV) , .. 

HWaj-O. 

RABJ*0, . . . 

50 RETURN 

20 CONTINUE . , . 

C 

C FOLG DETERMINES IQ»IB . . 

08 ( 1 ) *QAV 

55 DO 1500 L-1,2 

OBL-OB(L) 

1001 IF(QBL.LT»QA8(IQJB(l)»L)) GO TO 1101 



PLSUB 
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SUBROUTINE SHFCNS 73/172 TS 


FTN A.6+A52 


05/17/79 16.20.1U PACE 2 


IQJ0P1«I0JB(L)+1 

IQBMMH-IQOMAXU). 

60 DU 1201 I-I0JBP1* IQBMMM 

IF106L.LT. QAB(I>LJ) GO TO 1202 

.1201 CONTINUE ..... 

1202 IOJBILW-1 

GO TO 1500 i 

65 1101 IOJOMl»IQJBai-l 

. . DO 1301 t»l, IQJ8M1 

’ MMI»I0J6M1-Itl 

. . - IF(08L,GE.0AB(HHII/L)).G0 TO. 1302 

1301 CONTINUE 

. 70 _ 1302 IOJB(L)»HHII 

1500 CONTINUE 

. C 

C 

C FOIG DETERMINES INTERPOLATED VALUES . ... • 

75 C 

DIX-QAV-QAl 10) 

DIY-BV-BIIBI 

. . . . _ .... CX-DIX/DEX1I0) 

CY-OIY/DEYI IB) 

80 I . DO 301 K»l,3 

AA(K)«BULK(IB»IO,K) 

BB1K)-BULK(IB+1»I0»K) 

CC(K)*BULK<IB, IQ+l.K) 

_ . . _ DD(K)*BULK(IBH> IQ+l.K) 

85 APPVA<K)-AA(K)+<CC(K)-AA(K> )*C X+ ( SB ( KI-AAI K) ) +CY+C X+C Y+ ( AA (K > ' 

• . *+DD(K)-CC<K)-BB<K>) ' . 

301 CONTINUE 

. HVAJ«EXP(APPVA<1!) 

HWBJ»EXP(APPVA(2)I ■ 

_ . .00 _ . , _ . RABJ-APPVA13) 

IF1BA.LT.0.I RABJ«-RABJ •' 

. RETURN . . . ... 

END 


A1000B CM STORAGE USED .666 SECONDS 


PLSUB 

Page 7 of 8 
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BLOCKDATA PLSUIO 73/172 IS 


. . _ . .BLOCK DATA P LSU ID 

COMMON/IDOATA/IDNRSU) 
DATA IDNR S ( 3 ) / 3 / 

END 

A lOOOB CH STORAGE USED ".014 SECONDS 


FTN 4.6+452 05/17/79 16.20.10 PAGE 1 


PLSUB 
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5 


' 10 ' 


15 


20 


25 


' 30 


35 


50 


55 


50 


55 


SUBROUTINE PHILH 73/172 TS * PTN 5.6*552 05/17/79 16.19.59 PACE 1 


SUBROUTINE PHILH 
C 

C THIS OPTIMAL VERSION OF PHILH' IS FOR ALL SCALLOPING RATES 
C ANO PROVIDES A CRUDE S EARCH-AND-ACQUI S ITI ON FUNCTION 
C ACCESSED AS FOLLOWS* 

C ' SEARCH MODE* NGH»NGMlN 

C ACQUISITION MODE* NGHIN .LT.NGM. LT. NGH AX 

C FULL TRACK MODE* NGH-NGMAX 

C 

c - - .... 

C THIS NEEOS NGMIN.LE.NGM (. LE. NGJ L E.MGHAX 

REAL LAMDA 

LOGICAL NOKLHNj NOLQE* NOAC » KALMAN* LOE > TETHRO 
COMMON /RCVR 01/ NG MI N» NGMAX* 0 ELBl*NGM* IR> IAE 

' COMHON/RCVR02/RHOMAX,OTHO*TORO,BO,USCO,NSQ<5).NGO(5I 

C0KM0N/RCVR03/Pl,F(e>8UFL25(5)>FSAMP>K*KM, TETHRD* NG*NS> JH 
C0MM0H/RCVR05/DELTf E 0 ( 8 ), GQGT ( 8, 8 > * H < 5* 8 ) > I COUNT* S IGMA 
COMMON/RCVR05/NOLOE»NOKLMNjNOAC»GAMAES (5 ) , RDI AG < 5 > * P MD I AG ( 8 ) 
caHH0N/KCVR06/PPDIAG<8),RKAT<5,5!*PHI !5»5), PA ( 8, 8 ) , L AMO A ( 5 ) 
COHMDil/RCVRC7/T(13OI,V(130) 

COMMON/RC VR08 /XSLOE { 6)*ESL0EI6)*ES(8) 

COMMON/ RCVR09/BRCVR* BB* POCRIT.CC 

C0MM0N/RCVR10/ALFA,THES»TK£SDT,ALFAR*THRS,THR$DT,B,WSC>XS(8) ' 
DIMENSION INDEX(2),DTU30,5>,HW(130I,W<130) 

C FOLLOWING EFFECTS INITIALIZATION 

C 

IFIK.GT.01 GO TO 10 

’ ‘ ' 'JM2»JM/2 

JM1- JM+1 

SS2*.5/(SIGMA*+2) ' “ * ' 

I R *2 
RETURN 

10 C0NT1NUC 

C FOLLOWING PROGRAMS THE SEARCH 

C - 

IF (NGM.GT.NGMIN) GO TO 30 

ALfAR»ALFA*RHOMAX 

THRSDT* TORO _ 

KSC*WSCO 

THRS-THES-OTHO ’ ” 

30 CONTINOE 

C ' 

C FOLLOWING _COMPUTES CONSTANTS FOR PRESENT SCAN_ 

AL 2*2, 5 ALFA 

AL22*AL2*ALFA ' 4 

AR2*2,*ALFAR 

' ‘ AR22-AR2+ALFAR * “ 

AA2*AL2*AL FAR 

C FOLLOWING INITIATES LOOP AND COMPUTES FUNCTIONS 

C FOR EACH J 

C 


PLOPT •; 
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70 


75 
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85 


90 


95 


100 


105 


110 


SUBRUUl INE PIULN 73/172 TS 


FTN 6.6+652 05/17/79 16.19.59 


60 


DO 60 JI«1,JM2 
' 1 NO £X(1)“J1 " - ■ 

INDEX (2 > «JM 1— JI 
TUAJ-THAi T (JIM 
TH 6 E “THLS-THAJ 
‘ ' PJ-P (THEE) 

POJ-POOT (THEE) 

‘ ' P2J-PJ++2 

THLR-THRS-THAJ' 

PRJ.P(THER) ’ ' 

PDRJ«POUT (THER t 

PR2J-PR J++2" - 

PPRJ«PJ*PRJ 

QNRJ..5+AL22+P2J ' 

QRJ*QNRJ+.5+AR22+PR2J 

' D1NEWL2+P2J ' " 

C1-AR2+PPRJ 

D2NET-AL22 + PJ + P0J 

C 2* AA2+ PD J + PR J 
D3J-AR2+PR2J 
C3«AL2+PPRJ 

"" 06J-AR22+PDRJ+PRJ' “ ' 

C6*AA2+PJ+PDRJ 
05J*-AA2+PPRJ 

FOLG COMPLETES CALCULATIONS FOR TO, FRO SCANS » RESP. 

DO 50 I-l>2 ' ‘ 

J»1NDEXUJ 

‘ " BLGCAL-PVALUE<B+USC*T(J>,3.1615927>0EIBLJ " ' 

SB«SIN( BLOCAL) 

' C B “COS ( BLOC AL ) ' 

0 J ■ ONR J 

QRJALL«QRJ-D5J+CB --- - 

D1J-D1NET 

* D2J-D2NET ‘ 

IF (NGM.LT.NGMAXI GO TO 60 

0 J*QR JALL • ' " ■ 

D1J*01J+C1+CB 

“ ‘ D2J-02J+C2+CB ’ ' ... 

CONTINUE 

' ” DTU,1]«D1J ' ' ‘ . - 

DT (J/21-D2J 

' “ DT(J>3) -D3J + C3 + CB ' " ~ 

DT(J#6) -D6J+C6+CB 

’ ' DTJ5-05J+SB ” ' ' ” ’ ~ 

DT<J>5)*DTJ5 

FOLG IS FOR A 6D LOE" DESIGN 

0T(J/61-DTJ5+T(JI 

FOLLOWING' COMPUTES VECTOR HW(JH),AND INNOVATIONS PROCESS VECTOR' W(JM) 




i 


& 

% 


JO 

%*■ 

M: 


- HW(J)*li/(lV+2-.+QJ) 

U J -V C J > 

UJ«SS2MUJ**2) ■ • — 

W(JWUJ/SQRT<1. + 0J+UJ>)-1. 

50 " ‘ CONTINUE ~ ' 

60 CONTINUE 
C ’ 

C FOLLOWING COMPUTES VECTOR LAMDA(NG) AND HATRICE PHHNG.NG) 


PAGE ' 2 


PLOPT 
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SUBROUTINE PHILM ' *“ 73/172 "TS ' ' 


115 C 

... , - - DO " 110 I *li NG 

LAM0AU)»0.0 

~ " DO 70 J*1>JM ... - •• 

LAMDA(I).LAMOA(I> + DT(J>I)+WU) 

120 '70' CONTINUE " 

DO 100 L«1,I 

' PUILI-O. 

DO 60 J*1»JM 

... - phjli«phILI+HW (J)*DT(J>1)+0T(J«L) 

125 80 CONTINUE 

.. PHKL/l) ■PHILI ”• " ■’ 

PHI (I,L)*PHILI 

IF (NOLOE) GO TO 90 

RMAT(l>I)*PHIU 

130 RMATl I > L ) »PH IL I 

90 CONTINUE 

” ' 100" 'CONTINUE 

110 CONTINUE 

RETURN 7 

135 _ END 

4100GB CM STORAGE USED ,005 SECONDS 


FTN 4.6+652 


05/17/79 '16.19,59 


PAGE 


3 
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BLOCKLAT A I'LOPID 73/172 TS 


FTN A. 6+652 05/17/79 16.19.59 PAGE 


BLOCK DATA PLOPIO 
COMMON /10DATA/ IDNRS (6 ) 
DATA I DNRS ( 3) / 2 / 

END 

* 610006 CM STORAGE USED .015' SECONDS 


PLOPT 
Page 4 
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FUNCTION PULS 73/172 TS " FTN 4.6+452 ’ 05/17/79 ’l6.20.l'9' ’pAGE 1 


FUNCTION P H L S ( THE 7 A ) . 

C THIS COMPUTES THE TRANSMITTED SIGNAL INTENS IT Y ( REL ATI VE TO 

C . THAI AT BEAM CENTER AS A FUNCTION OF THE ANGLE-OFF-BORESIGHT. 

C THE MOOEl GIVES FIRST SIDE LOBES 23 OB BELOW THE MAIN LOBE, 

5 C . . , . 

LOGICAL MORE 

_ . ... C0ftMON/MLS0O4/BMLS,B6B,HTIMES,MSET>MORE . .. 

DATA PCRIT/. 7853981635/, AA/I, 570796327/ 

_ _ PKLS*PCRIT . ..... . 

10 ■ Z«8BB*THETA 

... IF <ABSUbS<Z)- 1.I .LE. l.E-7) RETURN . 

PMLS-KOSUA + Z) >/(l.-Z*+2) 

RETURN ... 

END 

410008 CM STORAGE* USED * ’ .07l'SEC0NDS ~ " 


PMLS1 

Page 1 of 2 
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BLOCKDATA PMLSIO 73/172 TS 


PTN A.6 + A52 05/17/79 16.20.19 PACE 1 


v-_ BLOCK DATA PMLSID 

C0MKON/IDOATA/ I0KRS(6) 

DATA X DHRS (21/1/ 

ENO 


A1000B CM STORAGE USED 
.... .. .... . 


.016 


SECONOS 


I 


V 



«5 

r~ rn 


H 

& W 



PMLS1 
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FUNCTION P 73/172 T5 


FTN 4.6+A52 05/17/7?' 16.20. 23"~ 'PAGE ” l 


. . . FUNCTION P(THETA) . 

C THIS COMPUTES THE TRANSMITTED SIGNAL INTENS IT Y ( PEL AT T VE TD 

' C .. . THAT AT BEAM CENTER AS A FUNCTION OF THE ANG LE-OF F-BORE SIGHT 

C THE MODEL GIVES FIRST SIDE LOBES 23 DB BELOW THE HAIN LOBE. 

~ COMMON/RCVRO?/BRCVR,BB»PDCRiT#CC 

... DATA PCRIT/. 7853981635/* AA / 1.570796327/ . . 

P*PCRIT 

. . . . . Z*8B + THETA .... . _ • 

10 - IF ( ABS l ABS I Z 1-1. ) .LE. 1. E-7 ) ■ R ETURN 

.... P-(C0S(AA+Zn/U.-Z* + 2) 

RETURN 

END ( .... 

A10006 CM STORAGE USED i06B SECONDS . _ . . ; 


P0PT1 

Page 1 of 3 
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FUNCTION POOI 73/172 TS 


FTN A. 6+A52 05/17/79 16.20.23 PAGE 1 


FUNCTION PDOT (THETA) 

C . ... THIS COMPUTES THE DERIVATIVE DP (THETA) /DTHETA WHERE P (THETA) 

C IS THE TRANSMITTED SIGNAL I NTENS ITY ( RELATiy E TO THAT AT BEAM 

.. 5 . - .. C ... . CENTER) AND THETA IS THE ANG LE-OFF-BORES IGKT . THE P-MOOEL USED 

C IS THAT GIVING FIRST SIDE LOBES 23 DB BELOW THE MAIN LOBE. 

C . . . . ... 

COMMON /RCVR09/BRCVR,BB> PDCRIT.CC 

DATA AA/1. 570796327/ - 

10 C 

PCOT-SIGN( PDCRIT.-THETA) 

Z*8B+THETA 

. IF (ABS(ABS(Z)-l.) .LE. l.E-7) RETURN 

CP*AA*(Z+1.) 

15 COAAMZ-1.) 

PCOT*CCM(CD$(CP)-SIN(CP)/CP)/CP+(CQS(CM)“SIN(CM)/CM)/CM) 

.. , _ ... RETURN .... - - - 

END 


A1000B CH STORAGE USEO 


.119 'SECONDS 


i 
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blockoata poptid 


73/172 TS 


BLOCK DATA POPTID 
CGMMON/IODATA/IDNRSI6) ' 
DATA IONRS ( 6 ) / 1 / 

.. . 5 _ . . . . END ' . . 

.. 910008 CM STORAGE USED*.. ... .013 SECONDS. 


FTN 9.6+952 


05/17/79 16.20.23 


PAGE 
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25 


~ 30’ 


35 


V! 


A5 


50 


55 


SUBROUTINE RCVR • 73/172 TS FTN A.6+A52 05/17/79 16.19.09 PAGE 1 


SUBROUTINE RCVR 

C THRESHOLD RECEIVER " 

REAL LAUDA 

LOGICAL NUKLMN,NOLOE,NQAC. KALMAN, LOE,TETHRD . 

_ _ COMMON /RCVROO /THAHAX.TH AM IN.TS.TR. OMEG A» TF 

. . "COMMON / RCVR01 / NGHIN# NGMAX/QELBl jNGM>IR/ IAE 

, COMMON/ RCVR02/RH0MAX/DTH0. TDRO. BO, WSC 0, NS 0< A ) >NGO < A ) 

C0MMON/RCVR03/PI,F(8,6),FL25<AI»FSAMP,K,KH,TETHR0»NG»N$>JM * “ 

COMMQN/RCVROA/DELT«EO(8I,GQGT{8,8)>H(5,8), I COUNT .SIGMA 

CDMMON/RCVR05/NOLOE.NOK LHN. MOAC. GAHAES ( 5)»RDIAG(5).PMDIAG(B) ” ~ "• 

COMMClN/RCVR06/PPDIAG(fl),RMAT(5.5)> PHI (5.5).PA(8.8).LAMDA(5) 

COMMDN/RCVR07/T(130).V(130) ’ ' ‘ ™ ' ’ ' — 

COMMON/RCVROB/XSLOE (6), ESL05(8I,ES (8) 

C0MM0N/RCVR09/BRCVR.BB, POCRIT.CC " . ... - 

CDMM0N/RCVR10/XS1(8).XS(6) 

DIMENSION VPKt2).VTH<2),N(2).U(130).tf(130)»TRG(2> " 

DATA JX/ 100./ 

IF <K .GT. 0) GO TO 50 I 

C'FOLG IS INITIALIZATION ' ‘ • ' — - 

IR-1 

“ NS-NSOIIR) • ' ' — - — • - — 

NG.NGO(IR) 

.... “CALL CONTRL'" (3) - 

QMEGA»-ZOOOQ. 

" ‘ ‘ ’ JM2* JM/2 ' ... . . ...... 

JM2&-IJM2+11/2 

-- ' “'TSAMP-l./FSAMP - 

J0£LAY-IFIX<2.*3.1U5 92 7+25QOO.*TSAMP + .5) 

JM22-JM224- JDELAY * 1 

IC0UNT*0 

XS1I3J *0,0 — — - ' - - 

X5<3)-U.Q 

CALL CONTRL- (A) -- - 

RETURN 

■ ~ 50'"* CONTINUE — 

C 

C FOLG PROOUCES TGI AND TG2 '* ' 

TPST«(XS1(2)-THAMAX)/0NEGA 

II’5.V»UH\HANIN-KS1U))/0HEGA * 

0 

• C ’FOLG PRODUCES’ LOG ENVELOPE SIGNAL FILTEREO TO 25 KHZ ' "** ‘ 

DO 70 L*l. 2 

- ’ - ‘ VPEAK-0.0 * 

DO 60 JG1.JM2 

n*iMi-*i»*jM2 ■ .... 

JM21*JM2a 

- — U(Il)-20.0+AL0G10<l.+GX+V(Il>> 

IF t (Il.EQ.l).OR. 1I1.EQ.JM21) ) FL25(A)*0. 

- - - -- CALL DFLTRKU(U).W( I11.FL25) - ’ 

VPkAK*AMAXl(VPEAK.H(Il) ) . 

60 ” CONTINUE ’ “ I ' 

VPK t L ) ■ VP EAK I _ ... .... 

' ’ VTHtL )*VPEAK-3I 

70 CONTINUE , . 

- IF (K.NE » 1 > GO TO 60 ..... 

NAB0RT«0 


THDRVR * 
Page 1 of 4 
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60 


‘ ' 65 


70 


75 


SO 


"65 


90 


95 


100 


105 


110 


SUBROUT INE'RCVR ' " 73/172’ TS " FTN 9.6+452 05/17/79 16.19.09 ‘ PAGE 


NNQH*l+IFIX(2.*5»0E*-5/TSA11P + .5) 

. . N( 1) • ... - - - " 

N(Z)*NNOM 

80 CONTINUE ' ' ' 

DO 140 I-1.2 

JJ-JH22-MI) /2 ' • 

N2*(N(ll+l)/2 

OJ* (N2-11+TSAMP " * “ " ' 

TG1-TPST-0J 

' ' ” TG2-TPSF-DJ ' 

TAUSTT-TG1 

" IF(I.EO.Z)' TAUSTT-TG2 “ ' 

VT«VTH(I) 

' ‘ JO* ( 1-1 1+JH2+J0 ■“ “ ' 

Jl.JO+M I)-2 

L-l ' .... 

1SIGN.1 

00 100 J.JO, J1 * 

VO»W( J) 

vi.wiJ+i) ' ' 

TAU?TAUSTT + <J-JO,) + TSAMP 

' ' DELTAV*(V1-VTI*ISIGN *' ' ' ' 

IF (OELTAV . LT .C .0 ) GO TO 100 

- "TDWELL"TAU+TSAMP*((VT-V0)/<V1-V0)> 

IF(J.Nfc.JO) GO TD 90 

' ‘ IF(VO.GT.VT) TOWELL*TAU ... 

90 _ IF(L.EQ.Z) GO TO 130 

ISIGN^-l 

rowtLi«TowEL'i ' 

100 CONTINUE 

'IFa.EQ.lJ GO TO 190 • ” ' .... 

TDWELL e TAU+TSAMP 

'130 "CONTINUE ’ ' 

G WIDTH" TO WELL-TDWEL1 

IF ( (GWIDTH.LT. 15. £-6) .OR. (GWIDTH.GT. 350. E-6)) GO TO 190 ‘ ~ “ 

TRG(II*2i*G WIDTH 

TC»(TDWELL+TDWELl)/2.' ' ‘ 

1 F 1 1 . tQ .2 ) GO TO 150 

' TC1»TC * 

140 CONTINUE 

- l5d"”'DELTET«TC T TCl “ ' * 

DDD"(»5E~6)+IFIX(DELTET/.5E-6+«5) 

‘ ' XSl(2)"(-OMEGA/2.)*( DOD— TR I * ’ ' 

XS(2)«XS1(2) 

“ " ' XS1(1)*!VPK(1) + VPK (2)172. ' • 

XS 1(1)» CIO. +*(XS1(1)/20.)“1,)/GX 

. . xs(1) , m(1) ... 

DO 160 1*1/2 

' ” RG" TRG ( I ) /TS AMP ' 

N(I)*l+2+IFIX(RG/2.+«5) 

" ' ' 160 CONTINUE * • ’ 

NA80RT»0 

'' RETURN ' I 

190 IC0UNT*IC0UNT+1 

NABORT* NABORT+1 ' 1 

IFINABORT.LT. 5) RETURN 


THDRVR 
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SUBROUTINE RCVR 73/172 TS ' FTH 4. 6*452 05/17/79 16.19.09 PICE 


115 N(ll-NNOh 

" ” N ( 2 I *NHOM 

XS<2l*XSlt2) 

RETURN 

END 


41000 B CM STORAGE USED 


.822 SECONDS 
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BLOCKDATA 


AluOOB'CM STORAGE 


TRVXID 73/172 T S 


FTN A.6+A52 05/17/79 16.19.09 


BLOCK DATA TRVRID 
C0MM0N/10DATA/10NRS(6) 

DATA 1 ON RS ( 3 ) / IDNRS (A ) . IDHR S (6) /1,1»0/ 
END 

OSED " ' .023 SECONDS 


PAGE 1 


THDRVR 
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PROGRAM ACOMP1 73/172 TS 


FTN A.6+A52 05/17/79 16.20.50 PAGE 1 


PROGRAM ACQMP1(INPUT»0UTPUT,TAPE1Q*INPUT,TAPE1 5, TAPE7* OUTPUT, 

*T APE 20 ) 

INTEGER DATIN(A) , . 

DIMENSION ERAlf A < 100 J , ERTHT A { IDO > , ERALFR ( 100 ) > ERTHTR t 100 ) 

_ .. 5.. .DIMENSION XATOX 1 < 100 ) , I DENT S ( 6) » L ABELS ( 5 >» NAME ( 10) > NAHE1 ( 10 1 

DIMENSION NAHE2<10),NAHTIMIA),TIM(10Z>,T0TAL(1C0,5),YERR0R<5) 

. ..DIMENSION YYU02) 

ECO I VALENCE t RNAME2, NAME 2 1 10) ) , ( RNAME, NAME ( 10 ) ) 

EQUIVALENCE (T0TAL(1,1)»EP.ALFA<1)),<T0TAL(1,2>»ERTHTA(1>>» 

10 ♦ (TOTAL 1 1/3 1, ERALFR II ))» (TOTAL (1, A )> ERTHTRU »> » 

*(T0TAL(1,5),XAT0X1(11 > . . . 

OATA NAME1/10HSIH. JO0I ,3*1H »10H FILE NO: ,3*1H ,10H OATEl » 

DATA NAME2 /10HP LOT JOBt ,3*1H »10H PROGRAM: ,10HACGMP1 >2+lH , 

. 15. *10H DATE: , IN / .. 

DATA ALX/10./»ALY/2./»YERR0R/lA.>ll.,8.,5.,2./,S/.12/,H/.07/ 

OATA NAMT I H/ 10HTI ME SINCE, 10H START OF ,10HFIRST 5CAN,10H (SECONDS 

*>/, IBLANK/2H / | 

OATA 0ATIN/10HHLSSIMDATA,3*O/,YMMAX/l./ 

20 DATA LABELS/1 OHES ALFA ER.10HES THT A ERjlOHES ALFR £R, 

♦10KES THTR ER, 10HA LFAR /AL F A / . 

CALL CALCOMP ( 20 ) 

CALL FACTOR! 1. ) . 

CALL PLOTt+2.0,1.5,-3) 

25 C - 

C PUT JOGNAME AND DATE IN APPROPRIATE ARRAY ELEMENTS. 

‘ NAME2(2) -JOONAMe'tA ) 

.. ... RNAME2*DATE( A) _ 

’ 30 ' C 

C READ NUMBER OF FILES TO BE PLOTTED. . 

C 

READ (10, 10 ) NPLOTS _ 

10' " F0RMATII2) 

. 35 . . ... 

C WRITE JOBNAME, DATE, AND NUMBER QF PLOTS TO BE HADE. 

*" WRITE (7, 20) NAHE2(21,RNAME2, NPLOTS 

20 FORMAT (10H1JOBNAME: , A10, 1 5X» 6HDATE : , A10/ /IX, 12, 20H FILES TO. BE P 

~A0 +LOTTED) 

C******<*+i'***i’+*+*30at LOOP TO PLOT EACH FILE. 

DO 300 N-l, NPLOTS 

A 5 C 

Qt** ********************************* ****** 

C * READ DATA FROM DISK, WRITE ON LPR. * .. 

(;♦+ + ♦♦+* + + + ** + ♦♦ *************************** 

' 50 C READ CURRENTFIL6 NAMEJWRITE PLOT NUMBER AND FILE NAME. 

RE A 0(10, 30) DAT IN ( 2 ) 

30 FORMAT(AIO) . . . . . „ 

WR 1 TE ( 7, AO ) (0ATIN(I)»I*1,2),N»NPL0TS 

55 AO FORMAT (13H1INPUT FILE: , 2A 10, IOX, 5HPL0T ,12, AH OF ,12/) 

IR»IATTACH(6LTAPE15,0ATIN) 

IF(IR.EQ.O) GO TO 60 . 


ACQMP1 
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PROGRAM ACQMP1 


05/17/79 16.20.50 


PAGE 


73/172 TS 


FT N 9.6*952 


' 2 


60 


65 


70 


75 


80 . .. 


85 


90 


95 


100 


105 


110 


WRITE 17/501 

50 FORMAT { 20H FILE 010 NOT ATTACH/) 

STOP/INPUT FILE ATTACH NOT SATISFACTORY/ 

C 

.. C READ DATA FROM OISK AND PLACE IN PROPER LOCATION OR ARRAY. 

C 

60 R EAO ( 1 5 1 DDUT,DELT,MTIHSS,LGHAX»KM>TODAY,JBNAH 

READ 1151 (IOENTSU 1 # I- 1# 6 ) »KS TART 
ft£ADU5)NRUN»0SNRDB»RHQ* BETA/FSC, BMLS, BRC VR» THES EP 
C++*+*****++**+++**70 . 

DO 70 K»1,KH 

READ (15) ERALFA(K),ERTHTA(K)»ERALFRIK),ERTHTR(K)*X9T0X1(K) 

70 CONTINUE 

R E AD ( 1 5 1 RHQHAX,DTHO,TDRO, BETAO, FSCO»EBETAG»EBETAM,EFSCO,EFSCH 
CALL RETURN! 6LT APE15 ) .. . 

DECODE { 10, 75, DOUT) NNl, IRCVR,NN2,NN3»NN9 
.75 FOR HAT (12, II, 1 3, Al, 13) . . ...... 

C 

C WRITE DATA READ FROH DISK ON THE LINEPRINTER. 

C 

WRITE (7, 80) DOUT, DELT,HTIHES, LGHAX/KH, TODAY, J8NAM 
BO FORMAT (1H , A10, 8X, 013 . 6, 5X> 3 ( 5X, 1 3, 10X ) , A10, 8X» A10 / ) 

WRITE! 7, 90) IDENTS/KSTART . .. . 

90 FORMAT I1H , 6 ( IX, A8, 9X 1 , 3 X, 1 3 / ) 

WRITE! 7, 100) NRUN,DSNRDB,RHO,BETA,FSC,BHLS,BRCVR,THESEP . . 

100 FORMAT! 1H , 2X, 12, AX, 7 ( 2X,G1 3 . 6 1 / ) 

C 

C WRITE FIRST 35 VALUES, 5 PERIODS, THEN THE LAST 3. 

C 

c **++ *********** ***120 
. DO 120 K *1, 35 

WRITE (7, 110) (TOTAL tK,LI>L" 1,5) 

110 FORHAT ( 1H , 5 (G13. 6, 5X ) ) . . . . 

120 CONTINUE 

C*** + *** + ** + + + **+**l<tO ... 

DO 190 K-1,5 
WRITE ( 7, 130 ) 

130 F0RHAT11H » 5 < 6X, 1H . , 1 IX ) ) 

190- CGMINUE 
KM3-KM-3 

C*******+*****+**++150 
00 150 K*KM3 , KM 

VR1TE(7, 110} (T0TAL(K,L),L*1,5) 

150 CONTINUE 

WRI'TE ( 7, 15 1 1 RHQHAX, DTHO/TDRO, BETAO, FSCO, E8ETA0, E BETAH/EFSCO, EFSCH 

151 F0RHAT(1H0,9(G12.6,2X)) 

C 

C******************* ********** 

C* PLOTTING BEGINS HERE. + 

C** ******************** ******* 

C 

C DRAW LEFT EDGE OF f HE PAGE 

CALL PLOT (-2. 0,0. 0,3) 

CALL PLOT (“2 .0,7. 0,2) 

■ C 

C WRITE FILE AND PLOT INFORMATION AT TOP OF PAGE. 


ACQMP1 
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.12 5... 
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135 


140 


145 


150 


155 .. 


160 


165 


170 


PROGRAM ACQMP1 73/172 TS 
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C ... 

XH--.5 
YH-8.7-S 

CALL SYMB0L1XH, YH, H,NAM£1,0 .0*90 ). 

C** + ** + + » + * + * + + ****160. .. _ , 

DO 160 1*1*10 

NAHEUI-IULANK . , ... 

160 CONTINUE 

NAME(2I*JBNAH 

DECODE! 10* 170*DDUT ) NAME16I 

170... FORMAT (A10) ... 

RNAME-TODAY 

. . CALL SYHBOL(XH,YH,H, NAME, 0.0* 100) 

YH-YH-Z.+S 

CALL SYM60L(XH,YH,H,NAME2*0. 0*100) . _ _ 

C 

,_..C WRITE PLOT INFORMATION ON BOTTOM OF PAGE . 

C 

.. . 200 ENCCDE(81,Z10*NAME) ( 10ENT S ( I ) * I • 1* 2 ) * BHLS,OE LT* KH* K START 

210 FORMATUlHSCENARIOi > A 8* 1H»» A6* 7H» 0 MLS** F4 , 1, 11H OEG* DELT** 
+F9.7,9H SEC* KM**I3*9H, KSTART**I3> . ... 

YH-S 

. CALL SYMBQL(XH,YH,K, NAME, 0.0,81) . 

220 ENC0DE181, 230, NAME) DSNR DO* RHO, BETA, FSC, THE SE P 
230 F OR MAT ( 9H S/N**F5.1*9H DB, RHO" * F5. 1, 7H, BETA*,F6.1* 

+ 10H DEG,FSC**F8.3,12H HZ* THESE P«* F6 . 3* 4H OEG) . 

YH-0.0 . ' .... 

CALL SYMBOL (XH, YH,H, NAME, 0.0*81 1 

_ . . 240 ENCODE( 59, 250*NAME) ( IDENTS < I ) * 1* 3* 6) * BRCVR . . 

250 FORMAT ( lOHRECEIVERi ,A7,2H, ,A7,ZH, * A8 * ]H* , A6, BH, BRCVR** 

*F4.1,4H OEG) 

YH*— S 

CALL SYMBOL ( XH* YH, H* NAME* 0 .0* 59 ) 

IF (IRCVR.NE.2) GO TO 258 

. . ENCOOE(83*255*NAME) RHOMAX, DTHO* TORO 

255 FORMAT ( 39H INTERFERENCE TRACKER 

CF4. 1* 5H DEG», F4. 1* 9H OE G /SE C* F5 . 1* 5H 
YH--2+S 

CALL SYMBOL 1 XH, YH, H, NAM E, 0. 0* 83 ) 

ENCODE (6 4, 256*NAME ) EBETAO, E8ETAM 

.256 , FORMAT t 34H. BETA ESTIMATE ERROR I 

+ , 3HDEG) 

YH*-3.+S 

CALL SYM80L ( XH, YH, H* NAME* 0. 0, 64 ) 

ENCODE 163* 257, NAME) EFSCO*EFSCM 

257 F OR MAT 1 34H FSC ESTIMATE ERR OR t INITIAL* , G10. 3, 7H , F I NAL* * G10 . 3 

+»2HhZ) . .... . . 

YH--4.+S 

CALL SYMBOL 1 XH, YH, H, NAME, 0. 0, 63 ) 

258 CONTINUE 

XH«0.0 , 

CALL FACTOR!. 5) 

" C FILL ARRAY W ITh' HORIZONTAL " AXIS 'DATA. 

C .... 

C++*++*++++++*»f»+*260 

DO 260 K*l, KM 
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175 


100 


105 


190 


195 


. 200 . 


205 


210 


215 


220 


225 


PROGRAM AC0MP1 73/172 T5 
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T 1M ( K ) -CELT* I K-l ) 

260 CONTINUE 

CALL SCALE (TIM. ALX, KH, 1) 

C* + + M+* + + + + + + + + + + + 29oi L0Qp FQR 5 plots. 

. ... .. 00 290 L»l,5 ... 

AMAX*-1 • E+320 
AHIN-l.E+320 
C*+**+*+*+*+*+**+*+27o 

00 270 K* 1, KM 

C 

. .. . C. FIND HIN AND MAX OF ERROR DATA., -• 

C 

AMI N«AMIN 1 < TOTAL (K,L >, AMIN J 
AMAX*AMAXHTOTAL(K,L),AMAXI 
' 270 CONTINUE ... 

YMAX-AMAX1 (ABS (AMAX), ABS(AMINI) 

YMIN--YHAX 

IFtL .EQ. 5> YMIN-O, 

YINC*(YMAX-YMIN)/ALY 

C 

C FILL ARRAY WITH ERROR DATA INCLUDING YHIN AND YINC. 

C 

C**+*++*++**+++*++*280 
DO 280 K»1,KM 
Y Y 1 K ) “TOTAL ( K, L ) 

280 CONTINUE 

YY t KM+1) *YH IN 
YY(KM*2)«YINC 

C 

C DRAW Y-AXIS AND WRITE LABEL. 

C 

YH* YE RRQRI L ) 

, YHM—YH 

CALL AXIS<XH,YH,LABELS<L),10,ALY,90.0,YMIN,YINC> 

C 

.C MAKE PLOT OF ERROR DATA. 

C 

CALL P LOT ( 0 .0, YH,-3 I 
CALL LINE(TIM,YY»KM, 1,0,01 
CALL PLOTIO.O,YHM,-3) 

290 CONTINUE , 

C 

C HAKE HORIZONTAL AXIS FOR ALL 5 PLOTS. 

C 

CALL AXISIXH,YH,NAHTIH,-A0,ALX,0.0»TIH<KM+l),TIH<KM+2>) 
C 

C 5 PLOTS FOR. THE FILE ARE NOW COMPLETED. . 

C 

CALL FACTOR ( 1. ) 

C 

C RESET ORIGIN AT B.5 INCHES ALONG X-AXIS 
C 

CALL PLOT<0.5,O.O,-3) . . . 

300 CONTINUE 

c 

C DRAW RIGHT EDGE OF FINAL PLOT. 

C 



t -.■*/ 
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PROGRAM ACOMP1 


73/172 TS 


. ,, CALL PL0T(-2.0,0,0,3) 

230 . CALL PL0T<-2.0, 7.0,2) 

. CALL ENOPLT 
STOP 

. . . END 

A2000B CH STORAGE USED . . , . 2. 817 .SECONDS . 
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' SUBROUTINE CLIP 


“ 73/172 TS 


5 


10 


15 


20 


25 


SUBROUTINE CLIP < k, KM> AMAX* AHIN, ISW, 
DIMENSION A (KH ) ' 

LOGICAL LA.LE 


KC*KM 

■ LA«. FALSE. 

LE". FALSE. 

iswo - 

DO 100 KK*1> KM 
K*KH+1-KK 

IF (A ( K) , GE.AHIN ) GO TO 10 

‘ LE'.TRUE. ' 

A(Kl»AHIN 

IFtISW.EQ.OJ ISW—K 
GO TO 20 
IF t LA > GO" TO 20 
IFttlSW.NE.Ol.AND.tKC.EQ.K 
‘IF ( A { K) .LE.AMAX ) GO TO 30 
At K ) ■ AHA X 
LA". TRUE. 

IF < IS W. EQ.O } ISH-K 
GO TO 100 
I FILE) GO TO 100 
IF((ISW.NE.0)»AND»tKC.E9»K 
CONTINUE 

END 


41000B CH STORAGE USED - .171 SECONDS 


i ^ 
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FUNCTION GAUSS '73/172 TS ...... . pTN 4>6+i( 5 2 05/18/79 13.53.08 " PAGE 1 


5 


10 


15 


20 


25 


FUNCTION GAUSS (DUMMY) 

C • " 1 ’ 

C GAUSE PRODUCES INDEPENDENT PSEUDO-RANDOM NUMBERS DISTRIBUTED 
C ' NORMALLY (0,1) BY THE DIRECT METHOD DESCRIBED IN THE FOLLOWING 
C REFERENCE i 

C "M.ABRAMOWITZ,I. A, STEGUN, HANDBOOK OF MATHEMATICAL FUNCTIONS “ 
C APPLIED MATHEMATIC SERIESA55, NATIONAL BUREAU OF STANDARD, U.S 

C ' -OEPT OF COMMERCE, NDV. 1970, PAGE. 953. 

C THIS VERSION OF GAUSS TAKES INDEPENDENT PSEUDO-RANDOM NUMBERS 

C UNIFORMALLY DISRIBUTED ON (0,1). FROM THE COC-SUPPLIED FUNCTION 

C SUBPROGRAM RANF(X). 

■” LOGICAL HAS - 

DATA HAS/, FALSE./ 

* ■ IF (DUMMY. EQ. 0.0) GO TO 30 ' ' ' - 

CALL RANSET(O) 

HAS-, FALSE. - • • 

30 CONTINUE 

” IF (HAS ) GO TO AO ' ' ~ 

X-SQRT(-2.*AL0G(RANFI1.0) ) I 

‘ - T-6«2831B5308*RANF(1.) 

S A VED-X+SIN ( T ) 

" ' GAUSS-X+COS (T) ----- • • 

HAS-. TRUE. 

RETURN' ' - — 

AO gauss-saved 

HAS-. FALSE. ' • .... 

RETURN 

■ ~ "END ----- - • 


I 



A1000B CM STORAGE USED ~ ,115 SECONDS ' 
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SUBROUTINE INTIO 


73/172 TS 


FTN A. 6+452 


05/18/79 13,53.08 


PAGE 


SUBROUTINE INTIO (SYMBOL, IVAL, IVALMX, IZ) 

‘ “ ’ INTEGER SWITCH, SLASH, SYMBOL " ' 

DATA SLASH/1H// 

I F ( IZ ) 1, 2, 3 ' 

5 . 1 READ (10,10 > IVAL 

‘ 10 ’ ‘ FORMAT ( 16) ' "" ' 

WRITE(7,20> IVAL 

20 FORMAT ( 1H JI6/) *“ ' - 

GO TO BO 

‘ 10 ’ 2 ' WRITE (7, 30 ) SYMBOL, IVAL ’ 

30 FORMAT ( 1H »A6,3H » ,16) 

READ ( 10, AO I SWITCH, IVAL2 

40 F ORHAT ( Al, 16 ) 

IF (SWITCH ,E0. SLASH) GO TO 60 ' ‘ 

15 WRITE (7, 50 ) 

50 “ ~ FORMAT (1H ) 

* RETURN 

60 ' IVAL-IVAL2 * - 

WR I TE t 7, 70 ) SLASH, IVAL 
20 ■ • 70 ’ ■ FORMAT ( 1H+, 15X, Al, 16/ ) 

BO IF (IVAL «LE, IVALMX > RETURN 

WRITE (7,90) SYHBOL, IVAL, IVALHX, SYMBOL, IVALMX 
90 FORMAT (1H ,A6,2H (,I6,16H) > MAX. VALUE (,I6,1H>/ 

•“ ‘ +1H ,A6,BH SET TO ,16/) 

25 IVAL-IVALMX 

RETURN ‘ 

3 WRITE ( 7, 100) SYMBOL, IVAL 

• • 100 FORMAT ( 1H >A6,3H - ,16/) 

■ RETURN 

30 ' ' END 

41000B CM STORAGE USED * .131 SECONDS 



LABLIB 
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A-99 


" SUBROUTINE LOGIC 


73/172 "TS 


SUBROUTINE LOGIO ( SY HBDL* VALUE* IZ ) 

“ ""LOGICAL VALUE*VAL2' 

INTEGER SWITCH* SLASH* SYMBOL 
- ' DATA SLASH/IK// 

5 IF ( XZ ) 1*2*3 

“ “l ■ READ (10*101 VALUE 

10 FORMAT (L5) 

WRIT£( 7* 20 ) VALUE “ ‘ 

20 FORMAT (1H *L5/> 

10 ~ RETURN ' ” ‘ . " 

2 WRITE (7*301 SYMBOL. VALUE 

30 FORMAT ( 1H *A6*3H - , LSI 

READ <10*40) SWITCH, VAL2 

" AO ' ‘ FORMAT IA1,L5) ' 

15 IF (SWITCH .EQ. SLASH) GO TO 60 

” WRITE < 7* 50) 

50 FORMAT (1H ) 

RETURN ' ' "■ ’ 

60 VALUE-VAL2 

- —20 WRITE (7,70 ) SLASH* VALUE 

70 F0RMATUH+*lAX,Al*L5/> 

- RETURN “ - - - 

3 WRITE (7*80) SYMBOL, VALUE 

' 80 •"FORMAT <1H’,A6*3K - *L5/) ' ' 

25 RETURN 

END 

- A1000B CM’ STORAGE USED ” “ — .104 SECONDS ‘ ” 




A- 100 


SUBROUTINE HATIN ' 73/172 TS ... FTN A.6+A52 ' 05/10/79 13.53.OB 


SUBROUTINE HATIN t SYMBOL* A* Ml* Nl* M) 

C THIS INPUTS A MATRIX ' " 

C PARAMETERS AS FOLLOWS 

C SYMBOL IS A 6 CHARACTER ALPHANUMERIC** EG. * A* 

5 C A IS THE ARRAY NAME _ 

c Hi ANQ HI' ARE THE DIMENSIONS OF THE DESIRED HATRIX 

C M IS THE COLUMN LENGTH OF THE ARRAY STORAGE 

- DIMENSION A ( H* Nl) _ 

INTEGER SYMBOL 

10 WRITE (7*5) S YHBQL, Ml* Nl 

5 FORMAT (1AHQINPUT MATRIX *A6*2H <*I2*3H_X *I2*10H) BY ROWS*) 

qq 30 i.i, Ml' - * • - ' 

READ (10*10) (A(I»J)*J*1*N1) 

10 ' ' F0RMAT(10(G13.6)) 

,15 WR1TE(7*20) (At I*J )> J*1*N1) 

.. - 20 - FORMAT ( 1H *10(G13.6)) 

30 CONTINUE 

- RETURN ”” “ 

END 

A1000B CM STORAGE USED .110 SECONDS ■ 
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A- 101 


SUBROUTINE HATMUL " 73/172 TS 


FTN 4.6+452 


05/13/79 I3.J3.08 


PAGE 


1 


__ 5 

- 10 
15 
20 
25 

30“ 

35 

- AO 
'41000B 


SUBROUTINE MATMUL(NRA,N2RA/NCA/NRB,N2RB/NCB/NRC/ 

♦NCC,A,B,C,U ' - 

DIMENSION A(NRA,NCA),B(NRB,NCB),C(NRC,NCC) 

GOTO (101, 102, 103, 104), L ' 

101 IFtNCA.NE.N2RB) GO TO 1000 _____ ____ 

DO 200 J-l/NCB 

■ -- 

00 200 K-l/NCA 

'■ ■ C(1,J )«C(I,J) + A<I,Km<K, J) “ • • • 

200 CONTINUE 

102 IF(N2RA.NE.N2R8) GO TO 1000 

- • 00 AGO I«1,NCA ....... 

00 400 J-l/NCB 

— " - C(I/J)-0. - 

DO 400 K-1/N2RA 

C(I,JI-C(I,J)+A(K»I)*B(K,J) 

400 CONTINUE I 

RETURN 

103 IF(NCA.NE.NCB) GO TO 1000 

DO 600 I-1/N2RA ' • - - • 

DO 600 J-1/N2RB 

- •• c(i,j)«o. -• -- - " - 

DO 600 K-l/NCA 

C (I, J)-C(I,J)+A(I,K) + B(J,K) -■ 

600 CONTINUE 

, . RETURN - • - 

104 IF (N2RA.NE.NCB ) GO TO 1000 

DO 800 I-l/NCA ’ - - 

DO BOO J-1/N2RB 

C(I, J)-0. - • 

DO 800 K-1/N2RA 

.. c<I, J)-C(1/JI+A(K.I>*B(J/K> 

800 CONTINUE 

. . return • - - 

1000 WRITE(7,2000) 

" - * 2000" FQRMAT(5X/*CHECK THE PROGRAM FOR MISTAKES*) 

RETURN 

END • • • - -- 


CM STORAGE USED .427 ‘ SECONDS 
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A- 102 


SUBROUTINE HATOUT " 73/172 TS FTN A. 6+452 ' "05 /18 /79 ' 13 . 53 .08 ' PAGE 1 


SUBROUTINE HATOUT ( SYMBOL* A.M1.N1* M, IZ ) 

CTHE VARIABLES IN SUBROUTINE PHATQUTP ARE AS FOLLOWS 

CiSYKBOLP IS A 6-CHARACTER ALPHANUMERIC EG.+ A* 
CRAW IS THE ARRAY NAME 

3 CPM1P.AN0 PN1P ARE THE 0 IMENS IONS ( VERT. HORIZ > OF THE 

C PRINTOUT ‘ * 

CPMP IS THE COLOMN LENGTH OF PAP AS DIMENSIONED IN THE 
' ' ' ' CCALLING PROGRAM 

• CPIZ-OP CAUSES DOUBLE S PAC ING, OTHERWISE SINGLE SPACING 
10 ■ • DIMENSION A(M»N1> , ' 

INTEGER SYMBOL 

WRITE (7* 5 ) SYH80L “ 

5 FORMAT! +0+.A6./1 

' DO 10 1*1, HI - 

13 WRITE (7.20) ( A (I, J J , J- 1,N1) 

ZO • FORMAT ( 10 ( IX, G1 Z. 5 ) ) 

IF(IZ.EO.O) WRITE <7» 15 ) 

” ‘ ~ 15 ‘ ' FORMAT!* *1 

10 CONTINUE 

ZO RETURN , ' 

ENO 

4100QB CH_ STORAGE USED .098 SEjCONDS 


LABLIB 
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A- 103 


SUBROUTINE MATSU 73/172 TS 


FTN A. 6+452 05/16/79 13.53.06 


SUBROUTINE MATSM ( A, B,C. L» HA , NA.HB , M2 B, NB.MC.M2C* NC AK ) 
DIMENSION A(MA»NA).B(MB/NB).C(MC.NC) 

GO TO (101>102>102»101)?L ' 

101 IF(M2B«NE.M2C*0R«(N3.NE.NC) ) GOTO 1000 
5 , GO TO 110 

"'102 ~ IFtNB.NE.H2C.0R.tM2B.NE.NCI) 'GO TO'IOOO 

110 IMAX-M2B 

— " • • JMAX«NB ’ 

IFtL.LE.2) GO TO 200 

- 10 ■ - IMAX-NB • • 

JMAX-M2B 

200 IFtIMAX.GT.MA.ORiJMAX.GT.NA) GO TO 1000 

00 600 I *1» I MAX 

- ’ ----- do 600 J«l. JHAX 

15 A(I>J>-B(I,J) + U-1)**K>*CU»J) 

I F (L . EQ . 2) AtI»J)-B(J,n + t(-l)**K>*CtI»J) 

IFtL.EQ.3) A(I.J)-B(I#J ) + 1 (-1) ++K) *C ( J> I ) 

• IF(U.EQ.A) A(I»J)«B(J»I) + U-1)**K)+C(J»I) - 

600 CONTINUE 
20 - " • RETURN 

1000 WRITE (7.10000) 

10000 FORMAT (5X. + MATRICES NOT COFORMABLE*) 

RETURN 


f 


- 41000B CM STORAGE USED ' ’ .336 SECDNOS " 


RAGE 1 
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A- 104 


5 


“■ 10 ' 


15 


■ 20 


25 


- 30 


' 35 


40 


45 


50 


55 


SUBROUTINE MULPLT --73/172 TS 


FTN 4.6+452 ’ 05/18/79 13.53.08 "PAGE 1 


SUBROUTINE MULPLT(B,A,NRY,NP,NV,XNAM£,YNAME,£YMIN»EYMAX,SYM) 

“ - INTEGER' LINE(61), BLANK, OOT,SYH(NP),LO,HI ' 

LOGICAL MANUAL 

~ - ' INTEGER XNAME(2),YNAME(2,NV) 

DIMENSION KP1(10),YHAX(10),YMIN(10),KK(10),8(NP)»A(NRY,NV) ■ 

•' — DATA BLANK, D0T/1H , 1H./,HI,L0/94,1H>/- 

IF(NRY.LT.NP) $TOP/NRY<NP, WRONG/ 

“ MANUAL*. TRUE. 

IF(EYMAX.EQ.EYMIN) MANUAL* .FALSE. 

IF(EYMIN.GT.EYHAX) PAUSEAYOU MADE A MISTAKE' INPUTTING LIMITS/ 

DO 10 I«1,NV 

■" YMIN(I)*1.E322 ~ 

YMAXUJ.-1.E322 

■10 - ’ CONTINUE ... - 

DO 30 J-1,NV 

DO 20 1*1, NP ' ■ ' ... 

IF (A 1 1, J >.GT.YMAX(J ) ) YMAX ( J ) *A 1 1, J ) 

" IF(A(I,4)»LT»YMIN(4)) YHIN ( 4 J -A ( I, J) 

20 CONTINUE 

30 - ’ CONTINUE ' 

IF (MANUAL) GO TO 41 

YYHIN-YMINtl) - 

YYHAX*YMAX (1) 

..... - . DD w , N v ■ • • — 

I F (YMAX < I J, GT.YHAX ( I-1J ) YYMAX*YMAX ( I ) 

IF(YHIN(I)»LT,YMIN{ 1-1) J YYHIN*YMIN(I) “ - - 

40 CONTINUE 

' ‘ • GO TO 45 - — — ' 

41 YYHAX*EYMAX 

. _ .... YYHIN'EYMIN ’ ■ - - - - ’ 

45 RANGE-YYHAX-YYMIN 

KAXIS-60.*(— YYMIN/RANGEJ+1,5 - 

IF(YYHIN.GT.0«0J KAXIS*1 

- IF(YYMAX.LT.O.O)- KAXIS*61 

DIS«RANGE/60. 

XMIN'ABS (8(1)) 

DO 50 J*2, NP ' .... - 

IF(ABS(B(J)).GE.XMIN) GO TO 50 

• XMIN*ABS(B(4>) • 

MI N* J 

• 50' ’ CONTINUE - 

60 CONTINUE 

DO 70 K4 *1, 3 — ~ 

WRITE (7, 80 ) 

70 - ■ CONTINUE - • - - 

80 FORMAT { 1H0) 

■ ■ WRITE (7, 90) 

90 F0RMAT(2X,7H LEGE Not) 

- • “' DO 100 1*1, NV - ’ ... 

WRITE! 7, 110) S YM ( I ) , YNAME 1 1, I ) , YNAHE ( 2, I ) , YHIN ( I ) , YM AX ( I ) 

100 CONTINUE ■ 

110 FORMAT ( 8X,A1, 2X, A6, 2X, A8,5X,4HHIN*,G13.6,3X,4HMAX*, 

+G13.6) .— ' - 

WRITE (7,60) 

• WR I TE ( 7, 80 ) 

WRITE(7,80) 


i 
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A- 105 


60 

65 

70 

75 - 

80 

- ' 85 

90 
95 
100 
' "105 
110 

91000B 


SUBROUTINE HULPLT “ 73/172 IS ' .... FTN 4<6+A52 - 05/18/79 13.53.08 PAGE 2 


WR ITE ( 7> 115 ) XNAMEtl),YYMIN,YYHAX 

115 F OR HATt 2X> A8> 5 X. 19HQR0I NATE AXISI/6H ' M IN "j G13 .6> ... 

*7H MAX",G13.6> 

" " WRITE (7.120 ) XN AHE ( 2 ) . D IS 

120 FORMAT t3X,A8>30X,10HINCREMENT*.2X,G13.6>/> 

’ 00 130 J.1,61 ‘ 

LINE ( 3 ) • BLANK 

“ 130 •• CONTINUE " ‘ ‘ • 

00 170 J2-1.NP 

• ' IF< J2.EQ.HINI GO TO 180 

L INE ( KAXI S ) "DOT 

.... DO 190 I-l.NV 

X-6Q.0M <A(J2>I l-YYHIN) /RANGE I 

■ KK(I)«X+1.5 ‘ ... 

I F ( KK ( I ) . GT. 61 ) LINEt61)«HI 

IF(KKlI).LT.l) LINE (1 )»L0 

IF(KK(I).LT.1.0R>KK(I).GT.61) GO TO 135 

LINE t KKt I ) ) «SYM ( I ) ~ ‘ ' " 

135 IFIKKtn.GT.61) KK(I)«61 I 

■ - ' IFtKKtn.LT.l) KKUJ-l " “ ' ... ... 

190 CONTINUE 

- VRITE ( 7. 150) B<J2)*LINE ' ‘ ..... -■ - - - 

150 F0RMAT11X.G13.6.6X.61A1) 

DO 160 I»ljNV ‘ “ 

LINE (KKt 1) ) "BLANK 

160 CONTINUE "■•••' ' ... 

170 CONTINUE 

* GO TO 211 - - - ’ - 

, 180 CONTINUE 

00 190 J»l»61 - 

LINE ( J ) >OOT 

‘ 190 • CONTINUE - - - - - - ■- ........ 

00 200 I-l.NV 

.. . „. x . 6 o,*(( A{HI N»I)-YYNIN)/RANGE) • 

KP1 1 1 ) «X+1. 5 

IFCKPltl ) . LT.l ) LINE ( 1) »L0 ' ’ 

IF(KPltI).GT.61) LINE(61)-HI 

"IF(KP1(II.LT.1.OR«KP1(I).GT.61)~G0 TO 200 

LINEtKPl(I) )-SYM< I) 

200 * CONTINUE - “ * * - • 

WRI TE { 7> 150 ) B(J2),LINE 

00 210 J«l#61 ' ’ ; 

LINEtJ) "BLANK 

' 210 CONTINUE - ' ‘ 

GO TO 170 

211 - DO 220 K5-1.3 . . . 

WRITEI7.80) 

-" 220 "CONTINUE * * '■ ’ 

EYH AX«YYHAX 

‘ EYMIN-YYHIN “ 

230 CONTINUE 

RETURN ------- 

END 

CM STORAGE USED .816 SECONDS 
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A- 10 6 


5 


10 


15 


• • 20 


25 


' 30 


35 


- 40 


45 


50 


55 


SUBROUTINE PLOTR 73/172 TS 


FTN 4.6+452 05/13/79 13.-53.08 


SUBROUTINE PLOTR (B, A,NP, XN AME, YNAHE.EHIN, EMAX, ISC I 
DIMENSION B(NP),A(NP),LINE(61) 

INTEGER H I, LO, LINE, BLANK, DOT* STAR 
LOGICAL MANUAL , SY HE 
INTEGER XNAME(2),YNAME(2) 

DATA BLANK, DOT, STAR/1H , 1H.,1H+/* HI /94/ , L0/1H2/ “ ' 

SYHE*. FALSE. 

‘ ‘ ~ ' MANUAL". TRUE. " " ' 

IF t EHAX.EQ.EHIN) MANUAL". FALSE. 

" IF(EMIN.GT.EMAX) STOPHYOU MADE A MISTAKE INPUTTING EHIN X EHAXM ' 
IISC-ISC 

IF (MANUAL ) IISC»1 

IF (MANUAL ) GO TD 11 

’ ' YMIN »1. E38 • " — 

YMAX— 1.E36 

. DQ 10 I>1>Np — - 

IF (A (I) .GT. YMAX) YMAX-A(I) 

IF ( A ( I ) . LT. YMI N I YHIN*A(I) 

10 CONTINUE 

GO TO 19 - 

11 YMAX»EMAX 

YMIN"EMIN - • . - 

19 XKIN'ABS (BCl) ) 

' " HIN*1 “ — 

DO 20 J-2, NP 

■ IF(ABS(B( jn.GE.XMIN) ’ GO TO 20 

XHIN»ABS (B ( J ) ) 

• MIN- J • • 

. 20 CONTINUE 

IF(IISC.EO.O) GO TO 21 ' ' " 

RANGE-YMAX-YMIN 

" KAXIS"60.*(-YHIN/RANGE)+1.5 ' 1 

IF (YMIN. GT. 0.0) KAXIS-1 

■ ■ IF{YMAX«LT .0.0) KAXIS "61 * - 

OIS-RANGE/60. 

" “ GO TO 30 ‘ ‘ " " 

21 IF ( YHIN<GT<0< ) GO TO 22 

, IF (YMAX. LT.O. ) GO TO 23 * ' 

KAXIS"31 

SYME-.TRUE. ... 

ABY"ABS (YHIN) 

” ~ RANGE-AHAX1(YMAX,ABY>" 

DIS-RANGE/30. 

- - ' GO TO 30 

22 KAXIS-1 

■ ‘ ’ RANGE-YHAX ~ 

DIS-RANGE/60. 

23 KAXIS-61 

RANGE— YMIN • ' ' • - - — “ 

DIS-RANGE/60. 

30 CONTINUE ■ I - " - 

DO 40 K4«l,3 

~ VRITE(7,50)--' 1 

40' CONTINUE 

50 FORMAT (1H0) ' - • ' " “ 

WRITE (7, 60) XNAME (1 ), YNAHE (1), YHIN.YMAX 


PAGE 1 
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60 


65 


70 


- 75‘ 


ao 


- 85 


90 


95 


100 


-105 


110 


SUBROUTINE PLOTR -'73/172 TS 


FTN 9.6+952 05/18/79 “ 13.53.08 


60 F0RMAT(2X.A8>7X>A8.3X>20H0RDINAT£ AXIS* MIN*+G13.6»3X,9HHAX*. 

*613.6) ' 

WRITE 17.70) XNAME(2)»YNAME(2)»DIS 
70 F0RHAT(2X>A8j7X/A8»25X#10HI NCREMENT*> 613.6# / ) 

DO 80 J “1> 61 

- LINE ( J ) * BLANK ’ 

80 CONTINUE 

- 00 100 J2-1.NP .... • ..... 

IF(JZ.EQ.HIN) GO TO 110 

X«60.0*( (At J2J-YHIN1/RANGE) ' ; 

IFtllSC.EO.O.AND.YHIN.GT.O.) X* 60. *(A(J2)/ RANGE) 

— IF(SYME) X*30.*(A(J2l/RANGE)+30. ” * “ 

K-X+1.5 

LINE (KAXIS)-DOT .... . - 

IF(K. GT.61) L IN E ( 61 ) -HI 

IFIK.GT.61) KMAX-61 . .. — — 

IFIK.GT.61) GO TO 89 

IF(K.LT.l) LINE ( 1) -LO 

IF(K.LT.l) KrtAX-KAXIS i 

IF (K.LT .1 ) GO TO 89 ■* ' ' 

LINE ( K) -STAR 

KMAX-KAXIS -• — — 

IF (K , GT. KHAX) KNAX-K 

89 ' WRITE(7,90) B( J 2) . A ( J2 \, ( LINE ( N9 > , N9*l, KHAX ) - 

90 F0RMAT(1X,G13.6,2X,G13.6/2X,61A1) 

IF(K. GT.61) LINE (61) -BLANK - ' ' 

IFIK.GT.61) GO TO 100 

IF(K.LT.l) LINE (1 ) -BLANK ' - - 

IF (K.LT. 1) GO TO 100 

• . LINE l K) - BLANK - 

100 CONTINUE 

- — GO TQ 195 ' ~ ~ — * ' 

110 CONTINUE 

- - — - 00 120 J-1.61- - - ' 

LINEN)* DOT 

“ 120 ' CONTINUE * — • * ‘ 

X-60.+I (A(MIN)-YHIN)/RANGE) 

IFIIISC.EQ.O.AND.YHIN.GT.O.) X»60.* ( A(J2 l/RANGE ) 

IF(SYME) X*30.*(AN2) /RANGE) +30. 

- - KP1-X + 1.5 - 

IFIKPl. GT.61) L 1NE ( 61 ) *HI 

~ IF(KP1.LT.1I LINE(1)*L0 - - 

IF(KP1. LT.l. OR. KP1. GT.61) GO TO 129 

• LINE ( KP1 ) *STAR - ' - - 

129 WRITE (7.130) B ( J 2 ) » A (J2 ) ,LI NE 

130 F0RMAT(1X/G13.6.2X.G13.6»2X»61A1) 

00 190 J»l»61 

— LINE ( J )*BLANK 


190 

CONTINUE 

•GO TO 100 


• 

195 

DO 150 K5*l>3 

WRITE ( 7> 50 ) 



150 

CONTINUE 



... . 160 . 

EMAX»YHAX ' ' ' 

EMIN-YMIN 

CONTINUE 

l 

- 


RETURN 
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A-108 


SUBROUTINE PIOTR' 73/172' TS 

115 ENO 

410008 CH STORAGE USED .B17 SECONDS 


FTN 4.6+452'- 


05/18/79 13.53.08 


PAGE 


3 
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A- 10 9 


‘ FUNCTION PV ALUE “ "73/172 TS 


FTN 9.6+452 ' 05/18/79 13.53.08 


FUNCTION PVALUE(X,P,DEL > 

- C ■ ' “ 

C THIS ASSUMES X RANGES ON THE REAL LINE* MODULO 2P AND 
‘ ’ C REDUCES X TO THE INTERVAL (-P+DEL* P-OEL) * EXCLUSIVE OF A SHALL 

5 _ C INTERVAL ABOUT THE ORIGIN* _(-DEL*pEL>. 

B-X/P ' 

• ” “ ■ — • C*P+(AM0D(ABS(B}+1.*2.>-1.> 

IF (DEL, .NE. 0.) C *S IGN ( AHAX1 ( AMIMKABStCW P— DEL ) * DEL) * C ) 

10 ... 1F { B . L T 0 . > C— c r "■ 

PVALUE-C 

— RETURN 

, END 

41000B CM STORAGE USED .092 SECONDS 


PAGE 1 
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• • SUBROUTINE REALIO 


73/172 ' TS 


SUBROUTINE REAL 10 ( SYMBOL; VALUE/ i 

INTEGER ISW,ISLASH, SYMBOL 

OATA ISLASH/1H// 

— ' IFII2J 1,2,3 

5 1 R EAD (10,10) VALUE 

- 10 FORMAT! G13 • 6 ) 

WRITE < 7, 20 ) VALUE 

20 ' ' FORMAT ( 1H ,G13.6/) ' " ‘ — 

RETURN 

10 2 _ WRITE < 7, 30 ) SYMBOL, VALUE 7" 

30 FORMAT (1H ,A6,3H ■ ,G13,6) 

READ (10,40} ■ IS W»VAL2 

40 FORMAT ( Al; G13 < 6 ) 

IF {ISH #EQ , JSLASH) GO TO 60 •• 

15 WRITE (7, 50 ) 

- — 50 FORMAT! 1H ) — — - 




60 

RETURN 
VALUE* VAL2 

20 ' 

70 

WRITE (7,70) ISLASH, VALUE 
F0RMAT(1H+»22X»A1» G13 .6 / ) • 


3 

BO 

RETURN 

WRITE (7,60) SYMBOL, VALUE 
FORMAT (1H >A6,3H ■ ,G13.6/J 

RETURN ‘ 

25 


END 


410008 CM STORAGE USED ,096 SECONDS 


O 


FTN 4,6+452 


05/18/79 13. 53.08 


PAGE 


1 
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A-lll 


SUBROUTINE RETURN 


73/172 - TS 


SUBROUTINE RETURN ( LFN ) 

" ‘ ‘ ’ DIMENSION F IT ( I ) 

IX-INOXFITUFN, FIT) 

CAUL STQREF(FIT(IX),2LCF»1LU> 

5 CALL CLOSEH(FIT(IX>) 

RETURN 

END 

41000B CN STORAGE USED .047 SECONDS 


05/1B/79 13.53.08 


PAGE 


1 
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A- 112 


FUNCTION SATU 


73/172 TS 


FUNCTION SATU(X,XL) 

' • 'IF (ABSIX).LE.XL) GO TO 2 

SATU-SIGN(XUX) 

' RETURN ' 

5 2 SATU-X 

" RETURN 

END 

410O0B CH STORAGE USED .046 SECONDS 


FTN 4.6+452 


05/18/79 ’13.53.08 


PAGE 
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A- 113 


PROGRAM PCRMP1 73/172 TS 


FTN 4.6+452 05/17/79 16.20.35 PAGE 1 


10 


..15. 


20 


25 


30 


35 


AO 


45 


50 


55 


.. . . PROGRAM PCRHP1 < INPUT/ 0UTPUT/TAPE10* INPUT/ TAPE15/ TAPE7*0UTPUT/ .. , 
♦TAPE20I 

. . , INTEGER DATIN ( 4 ) . . . 

DIMENSION TIM(102)/YY<102)z TODAY ( 3 1 / PK VAL < 3 ) / YPK t 3 > z A t YSNR I 3 I 

DIMENSION EMEAN(3>zERHS{3),ESTDEVt3t,TCCUNT<3) / YMI N ( 3 > , YH AX ( 3 ) 

DIMENSION IDENTS(6/3)/CSNRT0(102l >TH£SEP( 102), JONAH (3 ) , CSNRF R ( 102 ) 
DIMENSION 00UT<3)/ABB0RT(100)zTHESERI10C/3) 

DIMENSION NAHEl<10J/NAME2(10>/NAME(10)/YPEAK(3)zALYERR<3> 

.. DIMENSION NAMSEP(3)/NAMSNR(2)/NAMTIM<4) . _... 

DIMENSION YORE RR < 3/ 3 ) 

... EQUIVALENCE < RNAHE2/ HAME2 <10)1 , (RNAMEz NAME <10) ) _ . 

DATA YMMAX/1.0/»H/0.07/,SIZE/0.5/,S/.12/ 

DATA NAME1 /10HSIM. JO0«.»3+1K /10H FILE NOi ,3*1H zlOK . OATEt , 

♦1H / 

DATA. NAME2/10HPL0T J0B«_/3 + lH » 10H . PROGRAM 1 zlOHPCRMPl _ ,../2*lH /. 
*10H DATE! /1H / 

„ DATA NAME/10+2H / . • 

DATA DATIN/10HMLSSIMDATA/3+0/ 

DATA NAMSNR/10HCSNR ( TO-S/ 10HCAN) / 

DATA NAMSEP/10H SCPARATz 10KI ON ANGLE zlOHfOEG.) /• 

DATA NAMTIM/10HT1ME SINCE/10H START OF / 10HF IR ST SCAN/10H {SECONDS 

♦ 1 / 

. DATA ALXTIM/ 5 . 0/ ... 

DATA ALYERR/4. 0/2. 0.1.5/ 

DATA ALYSNR/2.0/1.5/1./ ... - 

DATA YPK/1.31/.31/ .07/ 

. .DATA YORERR/4. 0/0. 0/0. 0/6. 0/3.25, 0.0/6. 5»4, 5/2. 5/ . . 

DATA YORSNR/l.O/, IBLANK/2H / 

C . . _ ... 

c 

c 

CALL C ALCOMP ( 20 ) 

. CALL FACTOR (l.» 

CALL PLOT 12. 00/1. 50/ -3) 

„ „ .. NAM E 2 ( 2 ) * JOBNAME ( A ) , , .... ...... . ... , 

RNAME2»D ATE ( A ) 

R EAD (10/10) NPLOTS 
10 FORMAT ( 12 ) 

WRI TE ( 7/ 20 > NAME2I2) / RNAME2/NPLDTS 

20 FORMAT! 11H1J0BNAME I / A 10/ 15X/ 7HDATE I /A10//1H /I3/ 

♦ 17H PLOTS TO BE DONE) 

C ****** *****+***+**320 

DO 320 NP-l/NPLOTS 
READQC/30) NF1LES 

30 FORMAT III) .... 

C**+*+**++*+*+++***160 

.DO 180 N-l/NFILES 

READ110/40) DATIN ( 2 ) 

40 FORMAT ( 53X/A10) 

WRITE ( 7/ 50 ) NP/NPLOTS/ ( DAT IN < I) / 1-1/ 2 ) zN/ NFILES 
50 FORMAT ( 6H1PL0T /I2/4H OF /I2/12H INPUT FILE /2A10/2H {/I3/ 

*4H OF / 1 3/ 2H) < / ) 

. IR-IATTACHI6LTAPE15/DATIN) ; . . 

I F { IR.EQ.O) GO TO 70 
WRITE17/60) 

STOPMINPUT FILE ATTACH NOT SATISFACTORY!* 

60 F DRHAT ( 20H FILE DID NOT ATTACH/) 


o£i 

■n» 

o 2 - 

rssi 

. >^r 


■H* 
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60 


65 


70 


75 


_ . 80 


65 


90 


95 


. 100 


105 


110 


PROGRAM PCRKP1 73/172 TS 
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, C 

C READ FILE INTO NTH ELEMENTS OF ARRAYS, WHERE NECESSARY 
C 

70 R EAD ( 15 ) DOUT(N),DELT,MTIMES,LGHAX,KM,TOOAY(N),JBNAM(N) 

RE AD i 15 ) (IDENTS!I,N), 1*1,6) 

READ (15) NRUN»DSNRD6,RHD,6ETA,FSC>BHLS»BRCVR 
C+***+++*+*++*+**4*B0 
DO 80 K*1,KH 

REA0I15) CSNRTO(K)»CSNRFR(K),THESER!K,N)»ABBORT!K)>THESEP!K) . 

80 CONTINUE 

. REA0C15) EKEANlN),ERKS<N),ESTDEV<N),TCOUNT<N),YHIN(N),YMAX<N) 

CALL RETURN(6LTAPE15) 

C 

C WRITE DATA ON LINEPRINTER AS IN CONTROL 

. . C 

WRITE( 7/ 90 ) DGUT(N},DELT,HTIME$,LGMAX,KK,TODAY(N)/JBNAM(N) 

90 FORMATdK , A10, 8X* G13 .6, 5X>3 ( 5X, 13, 10X ) , A10, 8X> A10/ > . 

WRI TE ( 7, 100 ) (IDENTS!I,N), 1*1,6) 

100 FORMAT ( 1H , 6 ( IX, AB , 9X ) / ) 

WRITE! 7,110) NRUN,DShRDB,RH0,8ETA,FSC,BHLS,BRCVR 
110 FORMAT! 1H , 5X, 1 2, 6X, 6 ( 5X,G 13 .6 ) / ) 

C*****++***+**+*+**I30 
DO 130 K»l, 35 

WRITE! 7, 120) C SNRTO ( K ) , CSNRFR < K ) ,THES ER ( K, N ) , ABBORT ( K ) , THE SE P <K ) , K 
. . 120 FORMAT ( 1H , 3 (G13.6, 5X ) , 6X, Al, 1 IX,G13 .6,5X, 17) 

130 CONTINUE 

C+** + *+ + *** + + * + + + * + 150 • , 

DO 150 K*l, 5 

WR I TE ( 7, 160 1 , „ .. . - . . 

160 FORMAT ( 1H , 5 ( 6X, 1H ., 11X )) 

150 CONTINUE 
KH3*KM-3 

C*****+*++*+**6*+*+160 
DO 160 K*KM3> KM 

. WRITE! 7,120) ,C SNRT D ! K ) *CS NRFR ( K) , TH ESER (K, N) , A B80RT ( K ) , THESEP ( K ) »K 
160 CONTINUE 

WRITE (7, 170 1 EMEAN(N),ERHS <N),ESTDEV(N),TCDUNT(N),YMIN(N) »YMAX(N) 
170 FORMAT (1H0,6(G13.6, 5X)/I 
180 CONTINUE 
C 

. ' C. DRAW LEFT EDGE OF THE PAGE ..... . . . . .. 

CALL PLOT (-2. 0,0. 0,3) 

CALL PLOT (-2, 0,7. 0,2) 

C 

C WRITE INFORMATION DN THE TOP OF THE PAGE 
C 

YH-B.S-S 

XH*— 0 . 5 

CALL SYMBDL(XH,YH,H,NAHEI,0.0,90) 

Y2H*B.B-(NFILES+1)+S 
C**+++4++++++*++**+190 
DO 190 1*1,10 

NAME ID* IBLANK 

190 CONTINUE 
C ********* ♦*+*+***♦200 
DO 200 N*1,NFILES 
NAME(2)«JBNAH(N) 


* - irtj- * 

O o 
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115. .. DECODfcllO/195/DUUTtN)) MAMIE (6 ) . . ... 

' 195 FORMAT t A10 ) 

.. RNAME-TOOAY!N) 

YlH*a,8-N+S 

CALL SYMB0L(XK/Y1H/H/N AM E/0.0/100) . 

120 200 CONTINUE 

. CALL SYMB0L(XH/Y2H,H/NAME2/0. 0/100) 

C 

C ORIGINATE TIME DELAY 

C 

125_ KM1*KK+1 ... „ _ 

KM2-KM+2 

C********* ******** *210 
DO 210 K-l/KM 

K1»K-1 .... 

130 TIM(K)-0ELT+K1 

’ C FIND MAX/MIN/AND INCREMENT FOR CSNTRo" 

C .... 

210 CONTINUE 

135 _ C SNR TD (KM1 ) *0 .0 

SNRINC*IFIX!CSNRT0!l>+.5> 

CSNRTD(KM2)«SNRINC .. . . . . 

YMM-YMMAX 

. . YMIX—1. E + 320 

190 ALX*ALXTIM/SIZE 

CALL SCAL£(TIM/ALX/KM/1) _ 

£♦*++*** ********** *220 

._. • DO 220 N*l/ NFI LE S 

YPEAK(N)»AMAX1(-YMIN{N)/YMAX(N)) 

195 YMIX»AMAX1(YPEAK!N)/YMIX) 

220 CONTINUE 

. .... YMM* AMIN1 1 VMM* YMIX > _ . _ 

C******************260 

. . _ ._ DO 260 N*l» NFILES , . . 

150 C***+***+*****++***23o 

DO 230 K*1/KM 
Y Y (K } «THES£R (K/N > 

ZS*SIGN(YMM/YY(K)> 

IF<AOS<YYCK) J.GE.YHMI YY!K)*ZS*YMM 

...155 230 CONTINUE. _ 

ENCODE(23/Z90/ PKVAL ) YPEAK(N) 

_ 290 FORMAT ! 13KPEAN VALUE ■ /F5.3/5H DEG. > 

Y Y ( KM1 ) *— YMM 

YY!KM2)»2.*SIZE*YMM/ALYERR!NFILES) 

160 ' CALL FACT0RI1.) 

_ _ . CALL PLGT(0»0/YORERR!N/NFILE5l/—3) 

XB--3.0*S 

YB-YPK(NFILES) 

"CALL SYM80L(XB/YB,H, PKVAL/ 90. 0/23) 

165 CALL FACTOR (SIZE) 

ALY-ALYERR(NFILES)/SIZE 

. ENCODE! 17/ 250>N AM ERR) IDENTSO/N) ... 

250 F ORHAT ! A8/ 9H RECEIVER) 

CALL AXIS(0.0,0.0,NAMERR/17/ALY/90.0/YY<KM1),YY!KMZH 
170 CALL LINEtTIM»YY/KM/ 1/0/0) 

... CALL FACTOR,! 1 • 0) 
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175 


160 


165 


190 


195 


. 200 


205 


210 


215 


CALL PLDT(O.D,-YORERR(N»NFILES),-3) 

260 CONTINUE 

CALL PLOT (O.OfYORSNR,— 3) 

CALL FACTOR (SIZE I 

ALLY-ALYSNR(NF1LES I /SIZE 

CALL AXIS ( 0. 0> 0.0,NAMTIH,-AO,ALX,0.0>TIM<KM1),TIM(KM2)) 

.CALL AXISlO.Of 0.0,NAMSNR,1A,ALLY, 90 .0, CSNRTO (KMl ), CSNRT0<KM2)J 
DTS-THESEP(2)-THESEP(1) 

TSMIN-THESEPllI 

TSINC"(DTS/DELT)*TIM(KM2) 

EPS— . 5/SIZE , 

CALL AX1S(0.0,EPS,NAMS£P,-30, ALX,0.0,TSHIN,TSINC) 

. _ CALL LINEITIMfCSNRTOfKMf lfOfO) . 

CALL FACTQR(l.O) 

. CALL PLOT(O.Of-YORSNR»-3) 

XH— .AA 
YH— S 

ENC0PE<93, 270,NAME)DSNRD8,RH0,BETA,FSC»KM, BHLSf IOENTS { 2f 1 ) 

270 FORMAT(AHS/N*,F5.1,5H OB, ,5H RHO«, F5 . 2, ZH, , 5HB ETA*, F6. 1, 6H DEG, 
*,AHFSC»,F6.1,5H HZ, ,3HKH-,IA,8H SCANS, , 5HBHL S-, F 5. 2, 2H, ,A8I 
CALL SYMBOL! XH,YH,H, NAME, 0.0, 93) 

YH-YH-S 

C *.* + *444***, + 44+>H310 


00 310 N*1,NFILES 
YH-YH-S 

DECODE(10,260»DOUT(N)) AA,BB,CC 
280 FORMAT t A2, Al, A7 ) 

D EC ODE ( 1, 285, BB ) IRCVR 
285 FORMAT (ID 

IF ( IRCVR. EQ.l) ENCODE (78, 290, NAME) ( IOENTS < I, N ) » I* 3,5 ) , TCDUNT! N ) , 
+ERHS ( N ) 

290 F ORMAT ( A7, 3H ( ,A7»2H, ,A8,2H, >F6.2,20HX OF SCANS ABORTED, , 

. . ♦5HERHS-,G13.6,5H OEG.) 

IF(IRCVR.NE.l) ENC0DE(78,30O,NAHE) ( IOENTS ( I, N ) , I ■ 3,6 ) , 6RCVR, 

♦ IRMSIN) . . .... 

300 FORMAT I A7,3H1 ,A7,2H, ,A6,2H, ,A6,6H, BRCVR-, FA .2, 8H DEG., , 

♦ 5HERMS-,G13.6,5H DEG.) 

CALL SYMBOL(XH,YH,H,NAME, 0.0,78) 

310 CONTINUE 

CALL PL0T<8. 5,0. 0,-31 

320 .. CONTINUE 

CALL P LOT ( -2 • 0, 0.0, 3 ) 

CALL PLOT (-2.0, 7.0, 2 ) 

CALL ENOPLT 

STOP 

END 
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PROGRAM RLOGSW ( OUTPUT* TAPE 10* TAP E7«0UT PUT ) 

C THIS READS <SWA>» <SWB>* X <RAB> 

REAL NC(1000)*NS(1000) 

INTEGER FNA14) 

5 ’ C0HH0N/DATAl/QA*B*U*WAAiWBA,WA2A»WB2A*WABA*WA,WB- 

; — C0HMQN/DATA2/LMAX1*C0SD, JNHAX* NC , NS, ALNL MX* RUM AX 

DIMENSION QAI(23I*BJ(12)*BULK( 12*25*31* DATUM {3 )* COS B ( 1011 
• ' - ' ' EQUIVALENCE (WAA*DATUM(1>) 

DATA PI /3.1A15927 /,LHAX /100/* JNHAX /1000/* JBMAX/12/ 

10 DATA F NA /10HHLSL0GSUCD* 1LC* 2*0 / , 

C 

C- FOLLOWING READS DATA FROM FILE ’ ’ 

IX-IATTACH(6LTAPE10,FNA) 

READ (10) LMAXl/JNMAX 
READ <10) IQMAX, (0 AI ( I ) * I -1, I QMAX ) 

READ (10) JBHAX*lBJ(J>,J»l,JBHAn 

READ UO) (((BULK(J,I,K),J.1,JBMAX)*I.1*IQMAX)*K«1*3) 

DO 80 K«l* 3 

IF(K.EQ.l) WRITE (7, 670) 

IFCK.EQ.2) WRITE ( 7* B 71) 

IF (K.EQ.3) WRITE ( 7* 072 ) 

FORMAT (1H1*///*5H0SWA* ) 

FORMAT- (1H1*///,5H0SWBI ) 

FORMAT (1H1*///*5H0RABI ) 

WRITE <7*080! ( 0 J l J > * J* l» J BMAX ) 

FORMAT ( AH08 «,8X» 12 (2X* F6. 3*2X) ) 

WRITE ( 7*865) - , 

FORMAT (AH Q A ( I 

00 70 I«l* IQMAX 

WRITE (7*090) QAI( IJ* (BULK (J*I*K) * J*l* JBMAX) 

FORMAT (1H >G11.A*12(1X*G9.2)) 

CONTINUE 

CONTINUE -- - ' ■■ ' 

STOP 


15 


20 - • 


070 

..... ... 871 _ 

25 872 

080 

863 

- 890 
70 

8 0 '' 

35 
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PROGRAM WLOGSW (INPUT, OUTPUT, PUNCH, TAPE12, TAPE5* INPUT, TAPE7-0UTPUT, 

' • “ • 1TAPE6-PUNCH) • 

C THIS COMPUTES <WA>, <WB>, <SWA>, <SW8>, X <RA8> 

' • REAL NC(1000),NS(1000> ' 

5 C0MM0N/DATA1/QA,B»U»WAA,WBA»WA2A,WB2A,WABA, WA» WB 

_ . caHH0N/0 ATA2/lHAXlj>C0S8, JNMAX, NC, NS, ALNLMX,RIJHAX 

DIMENSION QAI(25>»aJU2>,OATUH<5) 

DIMENSION DATA3(12»23,3),BULK(1Z,23,3),C0SB(101),DATA4(937) - - - 

EQUIVALENCE < WAA, D ATUM( 1 >) , ( QAI ( 1 1 , D ATA4(1 >) , ( B J ( 1 ) , 0 ATA4 ( 26 ) ) 

-• 10- - - EQUIVALENCE (0ATA4(38),DATA3(1,I, 1)) ” " ‘ " " 

C 

DATA PI/3, 141592?/, LMAX/100/ ‘ * 

DATA JNMAX/1000/, IQMAX/25 /, JBHAX/1 2/ 

• DATA QAI/. 1,.1776,. 3162/. 5623, l.» 1,778, 3. 162, 5 . 623,10 . , * ' * 1 

15 *17. 7 8,31. 62, 56. 23, 100, ,177. 6, 316, 2, 562. 3, 1000. ,1778. >3162., 

*5623.,1.E4,1.E5,1.E6,1.E7,1.E8/ 

DATA BJ/. 01, . 02, . 04, .06, .1,. 2, .3, .5, .7, .9, .95, .99/ 

SQ22»SQRT (.5 l 

' 20 • READ(5,B)LMAX,JNMAX ■' 

8 FORMAT (215) 

- WRITE( 7, 9) LMAX, JNMAX ' ' - ' ' 

9 FORMAT (7H LNAX* ,I5/6H JNKAX- iI5/> 

B ETA2»PI /LMAX " 

25 LMAX1* LMAX+1 

— ■ DO 10 L*1,LMAX1 — - 

CaSB(L)*COS< (L-1)*BETA2I 

-• * 10 CONTINUE ' ' 

DO 15 J-l, JNMAX 

-- 30 NC(J)"SQ22*GAUSS(0.) T 

NS < J ) *S Q22 + GAUSS 1 0. ) 

15 CONTINUE ‘ 

ALHAXi*LMAXl 

- ALNLHX-ALOGtALHAXl) ... 

35- RIJMAX« JNHAX+ALMAX1 

RIJHAX-l./RIJMAX — 

WRITE (7,800) LHAX1 

600 • FORMAT (1H ,I4,25H VALUES OF BETA (0 TO PI)) - 

WRITE (7,810) LMA'Xl 

40 - 810 "FORMAT (1H #I4,27H VALUES OF BETA-U (0 TO PI)) - 

WRITE (7,8201 JNMAX 

- 820— FORMAT (1H-, 13, 34H VALUES OF NOISE SAMPLES “(NCJ,NSJ I ) 

30 CONTINUE 

WRITE (7,830) QAIll ), QAI (2) , QAI ( IOHAX), IQHAX - " 

A5 830 FORMAT (4H QA-, G13. 6, 2H , , G13. 6, 6H, . . ., ,G13.6,2H (,I2, 

" “ ■ “ ■ •* 6H ) VALUES) • - • - 

WRITE (7,840) B J < 1 ) , B J (2 ) , B J ( JBHAX ), JBHAX 

-840 — FORMAT 1 3H 'B*, F7i4, 2H, ,F7.4,6H, .i.A",F7«4F2H"(,I2, 

* 8H) VALUES) 

. 50 0Q 6Q x>x,IQMAX — - ~ — 

QA-QAKI) 

DO 50 'J-l, JBHAX " - - ' 

8*B J ( J ) 

35 00 45 K»l,3 

BULK ( J , I , K ) “DATUM (K+2 ) " ■ • •• - 

45 ■ CONTINUE 
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PAGE 


2 


60 


65 ’ 


70 


""75 


80 


85 


90 


95 


410008 


50 . CONTINUE 

’60 ' CONTINUE - - - ... 

C CHANGES TO LOG ’ 

DO 100K-1,2 
DO 100 I-l,IQMAX 

’ ’ DO 100 J-l, JBMAX' 

DATA3 < 0/ I,K)-AL0G<SQRT(8ULK< J, I»K>)) 

100 1 CONTINUE ’ ’ ' ' 

DO 200 I*1,I0MAX 

DO 200 J *1, J BM AX . ’ ’ 

200 DATA3(J/I/3)«BULK(J, 1/3 ) /SORT < BULK! J, 1/ 1 l + BULK I J, I >2 )> 

C PUNCHES CAROS ’ ... - 

IIJJ-3+IQHAX+JBMAX+IQMAX+JBMAX 

“ ’ WRITE (6/ 900) LMAXl,JNMAX,IQHAX, JBMAX, 1 ... . . . . 

900 F0RMAT(4(I5,5X),26X,*HLS10GSWC0C+»I3I 

’ WRITE (6, 901) <(0ATA4(I),I+1>,I«1,IIJJ) * ’ ' ’ ” 

901 FORMAT < G23 . 16, A3X, *MLSLOGSWCOC*,I 3) 

— C' WRITES ON DATA FILE 10GSW2.DAT ' ’ ” ’ / 

WR ITE (12 ) LMAX1# JNMAX I 

WRITE (12) IQMAX»(QAI(I),I"1,IQKAX) 

WRITE (12) JBMAX, (8J(J), J-l, JBMAX) 

• ’ WRITE (12) 1(<DATA3(J,I,K),J-1,JBMAX),I-1,I0MAX>,K-1,3> . 

C WRITES ON 0ECWR1TER 

DO BO K*l, 3 

IFtK.EQ.l) WRITE (7> 870) " ’ ’ 

IF (K.EQ.2) WRITE (7, 671) 

■■ ~ IF(K.EQ.3) WRITE (7/ 872) .... . . 

' B70 F0RMAT(/,1H0,4HSWAI ) 

~ ' ” 871 FORMAT (/,1K0,4HSWB1 ) * ’ ' 

872 FQRMAT(/,1H0>4HRABU 

WRITE (7,680) (BJ(J)> J«i, JBMAX) " 

880 FORMAT (4H06 », 8X,12( 2X/F6.3, 2X I ) 

WRITE (7,885) ’ ’ 

885 FORMAT (AH OAJ ) 

DO 70 I-I,IQMAX ... . ... 

WRITE ( 7,890! QAI ( I), (0ATA3 ( J, l, JBMAX) 

’ ’ 890 FORMAT (1H ,GU.A,12(1X,G9.2) ) ’ 

70 CONTINUE 

• 80 • CONTINUE ’ ’ ’ ’ ’ 

STOP __ _ _ 

CM STORAGE USED' ' 627 ' SECONDS ... 
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SUBROUTINE WAWB 

CTHIS COMPUTES A SAMPLE EACH OF THE PROCESSES WA X WB 
REAL NCtlOOOJ.NStlOOOl 

COMMON /DAT A1/QA> B> U. WAA.HB A, WA2A» VB2A. WABA» WA, WB 
5 COMMON/DATA2/LMAX1,COS8, JNHAX ,NC . NS. ALNLMX, RI J MAX 

~ DIMENSION HA<101)»HB<1Q1),C0SB(1Q1)/G(101),H<101) 

C 

GMAX— l.E+322 - . . 

HHAX-I. 

10 “ ‘ ’ HAHAX«1. ' ■ ; -* *“ 

HBMAX-1. 

”■ DO 20 L*l. LMAX1 - • ' 

CQSBL-COSBtU 

BCBL1*AHAX1U. + B*COSBL»0. ( 

15 ABC-QA+BCBL1 

UABC-U+ABC 

RA0-2.+SQRTIUABC) 

. . RA01 . S qrt(i.+UABCI ’ - 

GL*2 •* t RAO 1-1. /(l.+RAD))~ABC 

• ~ 20 • - GIU-GL. 

HL*1./SQRT(1.+6.28318A6*RA0) 

* - • " ‘ H t LI -HL .... ... 

HAL* (— l. + U/RADD + HL 

’ — ' • • HAtU-HAL 

25 HBL-HAL+COSBL 

- HB (L > -HBL • — 

• GMAX*AHAX1(GL,GMAX) 

HMAX*AMAX1(HL. HMAX) ■ 

HAMAX-AHAXlt ABS( HAL). HAMA X) 

'30 - • - HBMAX-AMAXKABS (H8U.HBHAX1 

20 CONTINUE 

• • ■ GZ-GMAX-741. * • ; - 

FZ*ALOG<HHAX)+GZ 

- ~ - GM-FZ+ALNLHX 

35 GZ»G Z+ALNLHX 

GMA*GZ+ALOG (HAMAX ( ‘ “ — 

GMB*GZ+ALQG(HBMAX) 

- - ■ • FS»0. ' • -• • 

FSA*0« 

AO ' FSB-O. 

DO 30 L*1aLMAX1 

GLH«GL“GM 

GLMA-GL-GMA - • 

45 GLHB-GL-GMB 

IF (GLH.GE.-674. > FS-FSt EXP CGLH I *H ( L) ' 

IF IGLKA.GE.-674. ) FS A* FSA+EXP(GLHA)+HA(L ) 

- IF<GLHB.GE.-674i) FSB*FSB + EXP(GLHB)+HBU)~“ 

30 CONTINUE 

50 WA*(HAMAX/HHAX)*(FSA/FSt 

WB*( HBHAX/HHAXI +(FSB/FS> 

RETURN — - 

END 
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10 - 


15 


20 . 


25 


30 


SUBROUTINE WAVGS 

C GIVEN QA 7. B # THIS COMPUTES VARIOUS AVERAGES OF WA ’X WB OVER U ’* 
REAL NCJ>NSJ,NC<1000),NS(1000) 

DIMENSION DATUM (5) 

COMMON/ DATA1/QA>B»U>WAA>WBA»WA2A>WB2A>WABA»WA>WB 
1 ' ' " C0HM0N/DATA2/LHAX1>CCSB(101). JN(lAX»NC/NSj ALNLMX.RIJMAX “ 

EQUIVALENCE < WAAjQATUMd )(/ ( IBUHAXj LMAX1) 

DO 10 K*l,5 

’■ DATUM (K ) »0. '• ' ' 

10 CONTINUE 

DO 30 I 'l;! BUM AX 

COSBUI *CD SB ( I ) 

QU.QA*AMAX1U. + B+C0SBUI,0.) ... 

SQRQU2»2.+SQRT< QU) 

... p Q ZQ j.i,jNHAX 

NCJ-NCtJ) 

NSJ-NSIJ) 

U-QU+NCJ*S0RQU2+NCJ*NCJ+NSJANS4 
' CALL WAWB 
WAA-WAA+WA 

WBA*WBA+WB ‘ " . 

WA2A*WA2 A+WA+WA 

WB2A-WB2A+W8+WB 

WABA*WA8A+WA*WB 

- 20 • CONTINUE “ ' 

30 CONTINUE 

00 AO K*l»5 
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AO CONTINUE’ 

RETURN ' 

END ' ’ - - 
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APPENDIX B 


EXPERIMENTAL SYSTEM DATA ACQUISITION 


PDP-11/03 DRV 11 Parallel Dine Unit signals which will be used: 


Outputs : OUT 00 through, OUT 15* 

NEW. DATA READY* 

DATA TRANSMITTED* 

CSR0* 


Inputs: IN 00 through IN 09* 

REQ A** 

REQ B* 


Signals which will be generated by the data acquisition hardware: 


BIT 0 through BIT 9* 

START CONVERT*. 

STATUS* 

CLEAR CONTROLLER* 

TO SCAN IN (DECODE 33)* 
t g RECEIVED 
COMPARISON MATCH* 

COUNTER ENABLE 
COUNTER DISABLE 
ID RECEIVED / ID REQUESTED 
t s * TO SCAN IN 
ID RECEIVED - ID REQUESTED 
t s * TO SCAN IN 
S0 through S5* 


Signals which are expected from the BENDIX receiver: 

t R * Log Video (+)* and Log Video (-) * 

ELevation* 

AZirouth* 

Signals which will be supplied from front panel switch: Basic Wide (BW) 

or Basic Narrow (BN)* 

Quick Overview of Normal Operation 

After initialization, the hardware will ask the PDF 11/03 to select the 


Note: * indicates that the signal will be transmitted via the backplane 

of the VERD rack. 
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type of scan (Azimuth or Elevation) , which should next -be sampled. In response 

the PDP will read out the samples- from the previously sampled scan which were 

stored in a semiconductor memory; then, the PDP will select the next type of 

scan to be sampled. This selection is referred to as "ID REQUESTED" (ID REQ)-. 

Now, the hardware waits for the. t signal from the' BENDIX receiver' -which 

R 

indicates the beginning of the next scan. (Note: t must come shortly after 
Bit 5 of the BARKER code (data Bits 1 through 5); however, scan function iden- 
tification is associated with data bits 6 through 11. The current design 
assumes that Azimuth or Elevation scans are the only type being transmitted 
from the airport. If this is not the case design changes must be made. This 
problem will be discussed further in relation to the Function. ID logic.) After 

receipt of the t pulse, the hardware waits for either the Azimuth or the 
R 

Elevation line from the BENDIX receiver to be raised. This is referred to as 
the "ID RECEIVED" (ID REC) . 

If , the ID requested is unequal to the ID received, then the hardware 

waits until the desired scan is received. When the desired scan-is received- 

(ID requested = ID received) , the hardware asks the PDP to tell it when to 

start sampling the TO scan.- The PDP sends a 16-bit t word to' the hardware. 

s 

When a hardware timer operating at 3.84 MHz counts up to the t word, TO scan 

s 

sampling commences. The t word measures time with respect to the t refer- 

S R . 

ence, but there are some delays which are involved which must be compensated 
for by adjusting the t word sent to the hardware. These adjustments will be 
discussed later. 

The data samples have 10-bit resolution and are stored in a 256 x 12 
semiconductor memory. After 33 samples are taken, the hardware' asks the" PDP to 
send a t word to tell it when to start FRO scan sampling. When the hardware- 
timer counts up to this t^ word, FRO scan sampling commences. Then, 34 samples 
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are taken (the last one will be ignored when data are read out for processing) . 

Finally, the hardware returns to the state in which it asks the PDP to 
select the next type of scan to be sampled. The PDP reads out the 66 samples 
and sends out the next ID .requested. 

Detailed Description of the Data Acquisition Hardware 

The detailed description will come in two parts. First, the hardware 
will be divided into functional units which will be described as separate enti- 
ties. Second, a step-by-step description of the operation of the hardware will 
be given to show how the functional units interact by passing signals through 
the backplane of the VERO rack. The backplane wiring will be described after 
all of the functional units have been presented. The descriptions are most 
meaningful if they are read along with the logic diagrams of the hardware. 

Functional Units 

The hardware is divided into separate functional units, each of which has 
its own Vero Finger Board. These boards will be mounted in a Vero rack, and 
the backplane will provide the necessary interconnections from board-to-board 
and from the rack to the PDP 11/03 computer. The functional units are: 

a. POWER SUPPLY 

b. OSCILLATOR (3.84 MHz Clock) 

c. A/D and Sample/Hold 

d. STATE CONTROLLER and FUNCTION ID LOGIC 

e . SCAN TIMER 

f . SAMPLE TIMER & BUFFER MEMORY 

Power Supply (Figure B-l) 

The power supply is a Datel Systems BPM 15/150-D5, which converts +5 
volts to ±15 volts with COMMON. The supply has been mounted on a PC board with 
an aluminum plate for heat dissipation. Note : It is very important in a 
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Figure B-l Power Supply 
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system with both analog and digital signals present to maintain the correct 

distinction between analog and digital ground. However, these must ultimately 

be tied together — preferably, as close to the power supply as possible. 

Therefore , GROUND and COMMON have been wired together on the power supply 

board. [Note: second thoughts suggest the two supplies should be tied together 

at the A/D Converter (see below); this will be considered further] 

Inputs: +5 Volts, GROUND Outputs: +15 Volts, -15 Volts, COMMON 

Oscillator 

The oscillator is a 3.84 MHz crystal oscillator which has been mounted on 
a special PC board which provides a ground plane underneath the entire unit. 

Inputs: +5 Volts, GROUND Outputs: CLOCK 

A/D and Sample/Hold (Figure B-2) 

This board will include an AD509J Op Amp and an ADC1109 Analog-to-Digital 
Converter, both by Analog Devices, plus an SHM-12 Sample and Hold by Datel. 

The op amp is used in the standard noninverting configuration, with high- 
frequency compensation, to provide a gain of four. This gain will boost the 
0-2.5 Volts swing of the Log Video input to 0 - 10 Volts, which is the uni- 
polar range of the A/D converter. 

The board will operate as follows . The A/D converter will receive a 
START CONVERT command, via the backplane, from the SAMPLE TIMER & BUFFER MEMORY 
board. The converter will then raise its STATUS output signal, which will make 
the SHM-12 hold the current value of the Log Video input. Approximately four 
microseconds later, when the conversion is completed, the STATUS line will drop 
low. The 10 bits of digitized data are then valid. The negative-going edge of 
the STATUS signal will cause the 10 bits to be written into the buffer memory 
via the backplane. Note : While the schematic diagram for this board shows the 
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START 

STATUS COWVTR.T 



Figure B-2 A/D and Sample/Hold 




ADC 1109 with trim pot adjustments for the zero adjust (Pin 21) and the gain 
adjust (Pin 23), these should be replaced ultimately with precision resistors. 
Also, it is assumed that Log Video will be brought to the backplane from the 
BENDix receiver through a shielded cable. 

Inputs:^ +5 Volts, GROUND, +15 Volts, -15 Volts, COMMON, START CONVERSION, Log 
- ; ;-‘-i<-Video (+) , Log Video (-) 

Outputs': STATUS, Bit 1 (MSB) through Bit 10 (LSB) 


S t_ate Controller and Function ID Logic (Figures B-3 and B-4) 

The state controller design is based on the control-state counter, pre- 
sented in Section 5.11 of Thomas R. Blakeslee's book, Digital Design with 
Standard MSI and LSI . The controller consists of two 74151 data multiplexers, 
a 74193 presettable binary counter, and a 7442 demultiplexer. The inverters on 
the outputs of the demultiplexer are used for buffering and also establish pos- 
itive logic; thus, when a line, such as SI, goes high, the controller is in 
State 1. The operation of the controller is discussed in Blakeslee's book and 
will not be described here. However, we may .summarize its performance with the 
state diagram on the following page (Figure B-3) . 

The signals which cause the transitions from one state to another are 
produced' at several different points in the data acquisition system: 


Signal Origin 

CLEAR CONTROLLER SAMPLE TIMER & BUFFER MEMORY LOGIC; the signal 

goes high at initialization when CSR0 is raised 
and, also, after FRO scan sampling. t 

NEW DATA READY POP 11/03 DRV 11; this signal is raised when 

the DRV 11 places data in its output buffer. 

The data in this case is a code indicating the 
type of scan which the computer wants to sample 
next . 

BENDIX receiver. 
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Signal 


Origin 


FUNCTION ID LOGIC; these signals are produced 
on the same board that contains the state con- 
troller. The Function ID logic is discussed 
below. 

TO SCAN IN SAMPLE TIMER & BUFFER MEMORY LOGIC; after 33 

samples have been taken, this signal is raised 
to indicate that TO scan sampling is completed. 

t s ■ TO SCAN IN STATE CONTROLLER & FUNCTION ID LOGIC: when the 

PDP sends out the first t s word, the NEW DATA 
READY signal is pulsed to indicate that data is 
in the DRV 11 output buffer. The TO scan sa m- 
ples have not yet been taken, so TO SCAN IN is 
true. We use the trailing edge of the NEW DATA 
READY signal to fire a o ne-shot, wh ose output 
is lo gically AND ed with TO SCAN IN to produce 
t s • TO SCAN IN. By using the trailing edge, 
we insure that the data is stabilized in the 
output buffer before we accept it as valid. 

t s • TO SCAN IN Similar to above; however, when the PDP sends 

out the second t s word, TO scan sampling -.has 
already been complete d and TO SC AN IN is true. 
Thus , TO SCAN IN and TO SCAN IN are used by the 
hardware to differentiate between TO and FRO 
scans . 


ID received = ID requested 
ID received ^ ID requested' 


Function ID Logic (Figure B-4) 

As mentioned in the quick overview, the function ID logic, as currently 
designed, will work only if Azimuth and Elevation scans are the only scans 
being transmitted from the airport. The logic works as follows. When making 
an ID request, the computer will use signals OUT 15 and OUT 14 of the DRV 11. 
OUT 15 will be raised to request Azimuth; OUT 14 for Elevation. The NEW DATA 
READY pulse associated with this output will strobe the request into a 7475 
buffer latch. Now, when the BENDIX receiver decodes the scan function ID, 
either the Azimuth flag or the Elevation flag will be raised. A DM8160 compar- 
ator will compare the ID received with the ID requested. It takes approxi- 
mately 20 nsec for the comparator output to become valid. In order to prevent 
premature generation of invalid ID RECEIVED ^ ID REQUESTED or ID RECEIVED = ID 
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REQUESTED signals, the rising edge of either the Azimuth or Elevation flag is 
passed through a delay line and is used to gate the comparator output and its 
complement on to the state controller. Thus, both of the signals ID REQUESTED 
¥■ ID RECEIVED and ID REQUESTED = ID RECEIVED remain low until the comparator 
output is valid, at which time only one of the signals goes high. This is 
necessary for -the correct operation of the, state controller (see Figure B-5) . 

If the airport were to broadcast more than just Azimuth and Elevation 
scans, the hardware as currently designed would not work. The BENDIX receiver 
would have to send out a t pulse at the beginning of each scan as it decodes 

-K 

the BARKER code; it has no way of knowing if the scan to follow is Azimuth, 

Elevation, or otherwise. Upon receipt of the t pulse, the state controller 

R 

would enter STATE 2. Now, however, the controller would be stuck if neither 
the Azimuth nor Elevation flags were raised, as neither of the signals ID EEC = 
ID REQ or ID REC ^ ID REQ would be enabled to take the controller to another 
state. There are two ways around this' problem. One solution would be to have 
the Bendix receiver provide additional flag signals for the other~scans and to 
expand on the current design using some of the extra inputs to the DM8160 com- 
parator. The raising of any of the flag signals could be used to gate the com- 
parator output on to the state controller. A second solution would be to 
obtain precise information about the delay between the output of the Bendix t 

R 

pulse and the output of the Azimuth or Elevation flags. Since the t pulse 

R 

starts a 3.84 MHz counter, logic could be designed around this counter to pro- 
vide a pulse after this delay had elapsed. This pulse could be used to gate 
the comparator output on to the state controller. 

Inputs: +5 Volts, GROUND, CLEAR CONTROLLER, TO .SCAN IN, CLOCK 

BENDIX tp, Azimuth, Elevation 
NEW DATA READY, OUT 14, OUT 15 

Outputs: S<j> , SI, S2 , S3, S4, S5 
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Figure B-5 Timing Diagram for Function ID Logic 



Scan Timer (Figure B-6) 

The purpose of the scan timer is to initiate sampling of the TO and FRO 

scans at the times specified by the 16-bit t words sent from the POP. The 

s 

scan timer uses four 7475 four-input latches to hold the t word- Four 7493 

s 

binary counters are wired to provide a 16-bit binary counter. The combination 

of a DM8130 10-bit comparator and a DM 8160 6-bit comparator will be used for a 

16-bit comparison between the latches and counters. Cross-coupled NOR gates 

are used to implement classic Set-Reset flip-flops. Two flip-flops are used and 

will be referred to as the clock flip-flop and the comparator flip-flop. The 

clock flip-flop controls the flow of the 3.84 MHz clock signal to the binary 

counter. The comparator flip-flop controls the passage to the backplane of the 

ANDed comparator outputs (referred to as COMPARISON MATCH) . 

The scan timer will operate as follows. When the state controller enters 

STATE 0 , .both flip-flops are reset. This will prevent the counter from being 

incremented and will disable the COMPARISON MATCH signal from reaching the 

backplane. When the controller enters STATE 1, the binary counter is cleared. 

Now, upon receipt of the BENDIX t pulse, the state controller enters STATE 2. 

.K. 

This sets the clock flip-flop, and the binary counter begins counting at 3.84 
MHz. If the ID received 0 ID requested signal is produced by the function ID 
logic, the controller re-enters STATE 1; and the counter is again cleared. It 
will remain cleared as long as the controller sits in STATE 1, even though the 
3.84 MHz clock signal still flows to the counter input.. On the other hand, if 
the ID received = ID requested signal is produced, then the controller enters 
STATE 3. Note that the t word has not yet been loaded into the latches; 
therefore, any matching between the .counter and the latches cannot be valid. 

So STATE 3 is used to reset the comparator flip-flop, preventing the COMPARISON 
MATCH signal from being raised. 
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Figure B-6 Scan Timer Logic 









STATE 3 is used to signal an interrupt request (REQUEST B) to the PDP. In 

response, the PDP will output a 16-bit t word which indicates when TO scan 

s 

sampling should start. As mentioned in the quick overview, this t word will 

s 

measure time from the t pulse but must be corrected for a constant delay time 
which will be discussed in the next section. The NEW DATA READY signal associ- 
ated with the output of the t word is used to strobe the 16 bits into the 7475 
latches. The trailing edge of the NEW DATA READY signal is used to generate 
the t • TO SCAN IN signal which will make the controller enter STATE 4. At 

S 

this point, the latches contain a valid t word; so STATE 4 is used to set the 

s 

comparator flip-flop. Now, when the counter counts up to the t word, the com- 

s 

parator outputs go high. The comparator flip-flop is set; thus, the COMPARISON 

MATCH signal is raised. This signal is passed via the backplane to the SAMP LE 

TIMER & BUFFER MEMORY board and enables sampling to commence. 

After 33 samples have been taken, the state controller re-enters STATE 3. 

The Request B line to the PDP is raised to request the FRO scan t word. Since 

s 

the t word has not yet been received, STATE 3 resets the comparator flip-flop 

to prevent the COMPARISON MATCH signal from going high. YJhen the t word is 

s 

received, the t^ • T0_ SCAN IN signal will make the controller enter STATE 5. 
STATE 5 sets the comparator flip-flop to allow the COMPARISON MATCH signal to 
go high. Meanwhile, the counter continues to count at 3.84 MHz. When it 
counts up to the FRO scan t^ word, the comparator outputs again go high; and 
the COMPARISON MATCH signal is raised. This allows FRO scan sampling to com- 
mence. After the 67^ sample is taken, the controller returns to STATE 0 . 

Inputs: 4-5 Volts, GROUND, OUT 00(LSB) through OUT 15 (MSB), New Data Ready, 

CLOCK, S0 through S5 

Output : COMPARISON MATCH 
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Sample Timer and Buffer Memory (Figure B-7) 

The purpose of this board is to control the operation of the A/D and 
Sample/Hold board and to store the samples as they are taken so that they may 
be read back by the PDP 11/03. Three Intel 2101 256 x 4 Static MOS RAM's pro- 
vide the memory storage. Although only 66 samples with 10-bit resolution need 
to be stored, space is at a premium on the VERO boards and the 2101' s provide 
the necessary storage with only three 22-pin I.C. packages. The samples are 
taken at a rate of 160 KHz . This frequency is obtained from the 3.84 MHz clock 
by a divide-by-24 counter which consists of the series combination of a 7492 
counter and a 7493 counter. The memory address logic for 2101 RAM’s is pro- 
vided by an 8-bit binary counter consisting of two 7493 counters. These will 
be referred to as the address counters. Additional logic is wired to the out- 
puts of the address counters to provide signals which go high when the counters 
point to the 33 and to the 67 th locations in memory. This additional logic 
consists of two 7421 dual 4-input AND gates along with some inverters and 7408 
AND gates. 

NOTE: As was mentioned previously, the t words sent by the 

s 

computer to the SCAN TIMER must be adjusted for a constant delay 
factor. • This delay is due to two primary sources. One source of 
delay is the divide-by-24 counter. 


3.84 MHz 
INPUT 


->24 


->6 


v4 



^160 KHz 
OUTPUT 


A detailed analysis of the operation of this counter, based on its 
internal logic, yields the following result: the counter provides 
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Figure B-7 Sample Timer and Buffer Memory 







the proper frequency division, but the output is shifted in phase. 

The first output pulse comes at the end (trailing edge) of nine 
input pulses. At 3.84 MHz, this delay is approximately 2.34 
microseconds . 

A second source of delay will be the Bendix receiver.. The 

receiver is to output the leading edge of its t pulse no later 

R 

than 100 microseconds after reception of Bit 5 of the five-bit 
Barker code. The actual delay will have to be obtained from 
Bendix. Note that this delay will be compensated' for partially or 
wholly by the delay in transmission of the Log Video envelope. 

Other delays associated with gating and signal propagation 
are measured in nanoseconds and are- insignificant when compared to 
the sources of delay above. Thus, the total delay may be expressed 
as : 

TOTAL DELAY= (COUNTER DELAY) + (BENDIX t DELAY) + (BENDIX Log Video DELAY) 

R 

This total delay must be subtracted from the t words which are 

s 

calculated by the computer before they are sent to the SCAN TIMER 
board. 

The sample timer and buffer memory board will operate as follows. During 
the initialization following power-up, the computer will raise and then lower 
the CSR0 signal of the DRV 11 Parallel Line Unit (DRCSR Bit 0) . This pulsing 
of CSR0 will do three things: (1) it will raise the CLEAR CONTROLLER signal, 

thus placing the state controller in STATE 0; (2) it will clear the divide-by- 
24 counter; (3) it will clear the address counter so that it points to memory 
location zero of the buffer memory. 
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Now, STATE 0 is the state in which the computer reads out the samples 
from the previously sampled scan. It does this by repeatedly reading the con- 
tents of the DRV 11 input buffer, DRINBUF. After each read operation, the 
DRV 11 automatically pulses the DATA TRANSMITTED signal. This signal will be 
used by the hardware to increment the address counter so that the next sample 
may be read. Thus, to read out the 66 samples the computer must do the follow- 
ing. First, it must read DRINBUF once and ignore this sample. This sample, 
stored in buffer memory location zero, is actually the 67 th sample and that is 
why it is ignored. The 66 samples of interest are stored in Locations 1 
through 66. So the computer now does 66 successive reads to obtain the 66 sam- 
ples. The data is in the lower 10 bits of the 16-bit input buffer, with Bit 0 

as the Least Significant Bit, 
til 

After the 66 sample has been read (67 read operations ) , the hardware 
automatically clears the address counters in preparation for the next set of 
samples to be taken. The hardware also raises the CLEAR CONTRO LLE R signal 
(this has no effect here since the controller is already in STATE 0) and fires 
a one-shot (the purpose of the one-shot will be explained later) . 

No more activity occurs on the board until the COMPARISON MATCH signal 
from the SCAN TIMER board is raised, signifying that sampling is to begin. The 
COMPARISON MATCH signal is fed into a one-shot (E8) . The output of this one— 
shot, labeled COUNTER ENABLE, is normally high and is used to prevent the 
divide-by-24 counter from incrementing. When COMPARISON MATCH goes high, 
COUNTER ENABLE goes low for an interval somewhat longer than the time necessary 
to take 33 samples at 160 KHz. Thus, the divide-by-24 counter is allowed to 
start incrementing. Each output pulse of the counter fires a one-shot whose 
output is the START CONVERT signal. This signal causes the A/D and Sample/Hold 
board to take a sample and also increments ,the address counter so that it 
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addresses the location in the buffer memory where the sample will be stored. 
When the A/D conversion is completed; the STATUS line goes low. • This transi- 
tion fires a one-shot (E4) which provides a low- true write pulse for the buffer 
memory. The 10-bit digitized sample is thus written into the buffer memory at 

the address indicated by the address counters, 
rd 

When the 33 sample is taken, logic wired to the outputs of the address 

counters decodes the 33 and raises the TO SCAN IN signal. A one-shot (E7) is 

fired which raises the COUNTER DISABLE signal. This signal remains high for 

the duration of the TO scan and clears and disables the divide-by-24 counter, 

thus preventing any more samples from being taken during the scan. The raising 

of TO SCAN IN takes the state controller back to STATE 3. 

The board is now inactive until the COMPARISON MATCH signal goes high, 

signifying that sampling for the FRO scan must begin. The COUNTER ENABLE 

signal goes low, and samples are taken and stored as before. However, during 

the FRO scan, 34 samples are taken, the last of which will be ignored. This is 

done so that the 66 samples of interest will be stored in consecutive memory 

locations, while still providing a self-clearing address counter. Thus, when 
th 

the 67 sample is taken, logic wired to the outputs of the address ’ counters 
decodes the 67 and clears the address counter so that the 67 sample gets 
written into memory location zero. A one-shot (E6) is fired whose output 
raises the COUNTER DISABLE line, thus preventing anymore samples from being 
taken during the FRO scan. The CLEAR CONTROLLER line is also raised, so the 
state controller is sent back to STATE 0. 

STATE 0 is used to signal the PDP 11/03 with an interrupt (Request A) . 

The PDP responds by reading out 67 samples (ignoring the first) and then by 
sending out the code for the next type of scan to be sampled. 

Note: The Basic Wide/Basic -Narrow option will be transmitted to the 
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buffer memory from a front panel switch. The option will be stored in memory 
along with the data samples and may be checked by looking at Bit 15 of the 
input buffer after any of the data samples have been read. 

Inputs: +5 V; GROUND, Bit 0 (LSB) through Bit 9 (MSB) , BW/BN, COMPARISON MATCH, 

CLOCK, STATUS CSR 0, DATA TRANSMITTED 

Outputs: START CONVERT, TO SCAN IN, CLEAR CONTROLLER, IN 00 (LSB) through 

IN 09 (MSB) , IN 15 * s 

Backplane Wiring 

The table on the following page gives terminal pin assignments for each 
of the VERO FINGER BOARDS which will be used to implement the functional units 
described above (Figure B-8) . 


II - Step-by-Step Operation 

We may now summarize and clarify all of the previous discussion by giving 
a step-by-step description of the operation of the data acquisition hardware. 
The state transitions of the state controller will provide a convenient outline 
structure for the description. 

Power Up 

During the initialization following power-up, the computer must pulse the 
CSR 0 signal. On the sample timer and buffer memory board this pulse will 
clear the divide-by-24 counter and the address counter and will also raise the 
CLEAR CONTROLLER signal. The CLEAR CONTROLLER signal is transmitted to the 
state controller and function ID logic board, where it places the state con- 
troller in STATE 0. 

State 0 

The STATE 0 line is connected to the Request A line of the DRV 11; so 


B-21 



Figure B- 


8 Terminal Pin Assignments 
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when STATE 0 occurs, an interrupt is generated. The STATE 0 signal also is 
transmitted to the scan timer board, where it resets the clock flip-flop and 
comparator flip-flop, thus preventing the COMPARISON MATCH signal from being 
raised. 

Response to Interrupt Request A 

The computer must respond to the Request A interrupt by reading its input 
buffer 67 times. The first read will be ignored and is used merely to incre- 
ment the address counter so that it points to buffer memory location one , which 
holds the first sample. The DATA TRANSMITTED signal generated by each read 
operation is transmitted to the buffer memory to increment the address counter. 

After reading in the samples, the computer will send out a code for the 
type of scan that it wants to have sampled. To request Azimuth the OUT 15 
signal will be raised; to request Elevation the OUT 14 signal will be raised. 
The NEW DATA READY signal generated by this output will latch the ID requested 
on the STATE CONTROLLER & Function ID Logic board and will take the state con- 
troller to STATE 1. 

State 1 

The STATE 1 signal is transmitted to the scan timer board, where it 
clears a 16-bit binary counter which will operate at 3.84 MHz. Now, the con- 
troller waits until the Bendix receiver generates a t pulse. This pulse will 

R 

take the controller -to STATE 2 . 

State 2 

The STATE 2 signal is transmitted to the scan timer board, where it sets 
the clock flip-flop. This makes the 16— bit binary counter begin to count at 
3.84 MHz. 
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Meanwhile, the Bendix receiver will be decoding the function ID of the 
current scan. It will raise either the Azimuth or Elevation flag. The func- 
tion ID logic, in turn, will generate either the signal "ID received / ID 
requested" or the signal "ID received = ID requested." If ID rec ^ ID req is 
generated, the state controller' goes back to STATE 1, thus stopping and clearing 
the 16-bit counter. If ID rec = ID req is generated, the state controller goes 
to STATE 3. 

State 3 

The STATE 3 line is connected to the Request B line of the DRV 11; so 
when STATE 3 occurs, an interrupt is generated. The STATE 3 signal is also 
transmitted to the scan timer board, where it resets the comparator flip-flip, 
thus preventing the COMPARISON MATCH signal from being raised. 

Response to Interrupt Request B 

The computer must respond to the first Request B by sending out a 16-bit 
t^ word (with adjustments as noted before) which tells the hardware when to 
begin TO scan sampling. In response to the second Request B (STATE 3 is gener- 
ated twice) , the computer must send out a 16-bit t word which tells the hard- 

s 

ware when to begin FRO scan sampling. 

If the TO scan has not been sampled, then the TO SCAN IN signal from the 
sample timer board will be low. The state controller board will use the trail- 
ing edge of the NEW DATA READY signal assocaited with the' first t word output 
to generate the signal t • TO SCAN IN; this signal will take the controller to 
STATE 4. 

On the other hand, if the TO scan has already been sampled, then the 
state controller board will generate the signal t g • TO SCAN IN; this signal 
will take the controller to STATE 5 . 
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State 4 


The STATE 4 signal is transmitted to the scan timer board, where it sets 

the comparator flip-flop, thus allowing the COMPARISON MATCH signal to go high 

when the 16-bit counter counts up to the TO scan t word. When the COMPARISON 

s 

MATCH signal is raised, sampling begins as described in Section I. After 33 
samples have been taken, the TO SCAN IN signal from the sample timer. tboard is 
raised. This signal takes the state controller back to STATE 3. 

State 5 

The STATE 5 signal is transmitted to the scan timer board, where it sets 

the comparator flip-flop, thus allowing the COMPARISON MATCH signal to go high 

when the 16-bit counter counts up to the FRO scan t word. When COMPARISON 

s 

MATCH is raised, sampling begins as described in Section I. After 34 addi- 
tional samples have been taken, the sample timer board raises the. C LEA R 
CONTROLLER signal, which takes the state controller back to STATE 0 . 

Test Program 

The computer program used to test the completed data acquisition 
system is shown in Figure B-9. 
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•MAIN. HT-11 MACHO VM02-12 


PAGE l 


7>/iT4 

lAJ T - P 


JT/'' T rC (r A C E. 
C U.\' ~K; ULE R 
Ter 5 T 


I 000000 


•ASECT 


5 I'C >7£ 

3 167770 

DRC5H 

= 

167770 

3 167772 

OUTBUF 

= 

167772 

4 1 67774 

INBUF 

= 

167774 


5 


.MCALL 

.REGDEF 


6 000000 


.RLGDEF 



7 001000 

. 

c 

1000 


8 001000 000005 


RESET 


i INITIALIZE 

9 001002 012706 


MOO 

#1000, SP 


001000 





10 01006 012767 


MOO 

#1, DRCSR 


00000 1 
1 66754 





11 0101 A 012767 


MOO 

#0, DRCSR 


000000 

166746 





12 01022 032767 

A: 

BIT 

*200, DRCSR 

; WAIT FOR REO A 

000200 

166740 





13 01030 001774 


BEQ 

A 


14 01032 016700 


MOO 

INBUP,R0 

; BRING IN SAMPLES 

166736 





IS 01036 012700 


MOO 

#BUFFER,RO 


002000 





16 01042 016720 

B: 

MOO 

INBUF, CR0 ) + 


166726 





17 01046 022700 


CMP 

#BUF£ND,R0 


002204 





18 01052 001373 


BNE 

B 


19 01054 000000 


HALT 



20 01056 016767 

C: 

MOV 

FUNC, OUTBUF 

;OUTPUT FUNCTION 

0017 16 
166706 





21 01064 032767 

D: 

BIT 

#100000, DRCSR 

; WAIT FOR REG B 

100000 

166676 





22 01072 001774 


BEQ 

D 


23 01074 016767 


MOO 

IS 1, OUTBUF 

JOUTPUT TS1 

001702 

166670 





24 01102 032767 

E: 

BIT 

#100000, DRCSR 

;VAIT FOR REQ 3 

1 00000 
166660 





25 01110 001774 


BEQ 

E 


26 01112 016767 


MOV 

TS2, OUTBUF 

JOUTPUT TS2 

001666 

166652 





27 01120 000740 


BR 

A 

; REPEAT 

28 002000 

« 

- 

2000 


29 02000 

BUFFER: 

.BLKV 

t D66 

J DEFINE 66 WORD BLOCK 

30 02204 

BUFEND; 




31 003000 

• 

= 

3000 


32 03000 000000 

FUNC : 

.WORD 

0 

J DEFINE PAR AM ETERS 

33 03002 000000 

34 03004 000000 

TS1 : 
TS2: 

.WORD 

.WORD 

l TS1 

- 4 msec ~ 1544 <|>^q 

35 000001 


.END 

TS3 

= 11 msec 'Z 4246<{>^q 

SYMBOL TABLE 





A 001022 


B 

001042 

BUFEND 00P204 

BUFFER 002000 


C 

001056 

D 001064 

DRCSR = 167770 


E 

001 102 

FUNC 003000 

INBUF = 167774 


OUTBUF= 

167772 

PC =*000007 

H0 =*000000 


HI 

*000001 

R2 =*000002 

H3 =*000003 


R4 

*000004 

RS =*000005 

SP =*000006 


TS1 

003002 

TS2 O03004 


• ABS. 003006 000 

000000 001 

EKROHS DETECTED: 0 
FKEE CORE: 1707. WORDS 

MLSTES, MLST£S=MLSTES 

7 *EOF * 7 


Figure B-9 Data Acquisition System Test Program 


3612(f) 

Y 

12273! 

‘Y 
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APPENDIX C 


A 6D LOE OPTIMAL RECEIVER 


In this design, a 6th component, oi , is appended to the definition 
of Yj requiring basically only too changes: 

A l 

1. Appending a 6th row to matrix D,(y) so that instead of (2.103) 
it now reads 

l 2ap?(0) + 2a R p., (0)p_. (0 R )cos^ 

A A # A A A A A A 

2a 2 p.(6)p (6) + 2aa p . (6)p . (0 )cosg . 

3 3 R 3 3 R 3 

D(y) =• J 2ap.(0)p.(0 )cosg. + 2a p 2 (0 ) 

3 3 R 3 R R 

A A A ^ A A A A A 

2aa R p_. (8)Pj (0 R ) cosg^ + 2a 2 p.. (0 R )p.. (9) 

A A A A A 

(- 2aa R Pj (e>Pj (6 R )sin0^) 

A A A /V A 

(~ 2aa R p j (9)p j (0 R )T j sinB j ) 

where, as indicated in (3.10a), the quantity 


(C-l) 


3. = 3 4 w x. (C— 2) 

3 sc j 

is one which has already been in use in the SD LOE (see PLOPT, 
Appendix 'A) (in spite of the assumption (2.90). used in the 
derivation of the LOE that all the j3_. are equal); and 
2. Changing the dimensions of all affected arrays in the programs % 


Both changes affect module PLOPT, the latter additionally affects modules 
MLSSIM, OPTRVR and CTLACQN, the (interference acquisition) version of 
CONTRL which was selected for this study. Listings of the modified 
versions of these modules, CTLACQ6, MLSIM6, OPRVR6 and PL0PT6 follow 
below. Two options of this basic design were provided in the programs. 
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!• N g = 8, and the state vector x is as defined for the Optimal 
design; 

2. N = 9 , and an additional component, to , is appended to the end 
s sc 

of the state vector definition. 

It was not possible to run any simulation studies involving the 
6D LOE, the computing resources having practically* been exhausted at 
this point (including the $4700 University grant); as a debug exercise, 
however, the programs, by parameter inputs, were specialized to the prior 
SD LOE OPTRVR design and an earlier interference acquisition run with 
OPTRVR duplicated. 
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SUBROUTINE CQNTRL 


73/172 TS 


FTM 7.6*752 


05/10/77 ' 13,73.29 


SUBROUTINE CONTRLIISW) 

THIS CONDUCTS THE HIS SIMULATION THROUGH A 
INTERFERENCE ACQUISITION SCENARIO, 6D LOE 


10 ■ 


15 


20 ' 


25 


• 30 " 


35 


70 


75 


50 


55 


REAL LAHOA “ ' ' 

INTEGER XNAME(ZI,YNAHE(Z),DATIN(7),DAT0UT(7I,D0UT 

INTEGER TNAH1(2)>YNAH2(ZJ,YNAM3(2),YNAM7<2)» YNAH5 ( 2) , FUNCTN (Z I 

INTEGER YNAM7(2),YNAH8(2),YNAM9(2),STm£<9) 

LOGICAL NOKLMN/NOLOE, NOAC,KALHAN, LOE, TETHRD, MORE, NFIRST, ADAPTV ' 
LOGICAL FILOUT,FIL£IN 

COHHON/IDDATA/ISIH, IPHLS, IRC VR* I AD AP, ITETHR’, IPOPT ” 

COMM ON/ RC9R00/THAHAX, THAMIN»TS*TR, OMEGA, TF 
C0HH0N/RCVR01/NGHIN,NGHAX,DELBL,NGM,IR,IAE 
COMHON/RCVROZ/RHOHAX,OTHO,TDRO,BO,WSCQ,NSO(6),NGOt6) 

CaHM0N/RCVRO3/PI»F(9,9),FL25(7],FSAMP,K,KM,TETHRD»NG,NS»JH ‘ " - 

C0MM0N/RCVR07 /DELT ,EQ(9)»GQST(9,9),H(6»9)>I COUNT, SIGMA 

■ 'C0MH0N/RCVR05/N0L0E,N0KLHN,N0AC,GAHES(6),RDIAG(6), PHD IAG ( 9 ) 

C0HH0N/RCVR06/PPDIAG<9),RHAT(6;6),PKI(6,6), PA< 9, 9 I , LANDA (6 I 
COMMON/RCVRO7/T(I30),V(13O) 

COHHON/RCVROB/XSLOE(9),ESLOE«9J,ES 19> 

• C0MMQN/RCVR09/BRCVR, BB,PDCRIT,CC 
COMMON /RCVR10/XSK 9 ),XS (91 

• ' COMHDN/HLSOOO/ALFA»THE,THEOQT , AL FAR,THR,THROOT, B, WSC, WSCDOT “ 

C0MM0N/MLS001/CSNRT,CSNRF,DSNRD8, RHO, BETA, FSC, LGMAX 
COHMON/MLS0O2/OCSNR,CSNR,LG»TPKT,TPKF 

C0HMQN/MLS003/FL10AE(7, Z),FL10(7),DELTAT(Z),XO(9,2),YO(7,2) 

C0HM0N/MLS007/BMLS>BBB,MTIMES,MSET,M0RE 

DIMENSION IDNRS(6I,IDASCI(27),IDENTS(6),RHSVAL(9) 

• DIMENSION EALFA(100),ETHET(100I,EALFR(100),ETHER!100),XFOUR(100) 
DIMENSION X ( 9 1, SCANNRdOOl 

■■ DIMENSION EB£TA(100),EFSC(100) 

DIMENSION EFSCOT ( 100) 

- - EQUIVALENCE’ ( AL F A, X ( 1 ) I , ( ISIM, IDNRS ( 1 1) , ( DOUT, D ATOUT ( 2) 1 

DATA AB0RT/1HA/»SPACE/1H /, NFI RST/. FALSE ./, ADAPTV/ . TRUE . / 

--•DATA 0ATIN/10HMLSSIMDATA, 1OH5OOQOOFQO0, 2+0/~ ' ’ 

DATA DAT OUT /10HML5SIMDATA,3*0/ 

- DATA IDASCI/7HCR0SSMP»7HRMSE(T)> 7HRMSE ( B),7HRMSE(F), 7HACQSITN, 

*3*7H , 7HGENERAL, 8H PMLS1 ,8H PMLS2 , 

♦ 8H PHLS3 1 , 8H THRHLO ,8H OPTIML ,8H SU80PT ,8H -3 DB ,8HADAPTIV , 
♦8HNDNADAP , BHUNTETHRD, BHTETHERED, ZH ,8H P0PT1 ,8H POPTZ , 

“♦OH P0PT3 / - - "• ' “* 

DATA NSTART/3/, IRSIGN/1/,KSTART/Z6/,F ILOUT/. FALSE. /, 

--CFILEIN/. FALSE./ - - 

DATA FUNCTN/7HAZIMUTH, 7HELEVAT./ 

‘DATA GQGT88 /7, 3 /, GQGT99 / 1 , E7/ ' 

DATA STITLE/6H ALFA , 6HTH ET A ,6HTHE00T, 6HALFAR ,6HTHETAR, 

"•■ C6HTHRDDT,6H ‘ B~ ,6H NSC ,6HWSCD0T/ ' - 

DATA XNAHE/BH SCAN ,8H NUMBER /,YNAM2/8H ETKET ,8HDEGREES / 

- • DATA YNAM1/8H EALFA ,8H • /, YNAH3 / 8H EALFAR ,8H / 

DATA YNAM7/8H ETHER ,8HDEGREES /,YNAM5/8H RHO ,8H / 

- DATA YNAH7 / SHEA BSBETA, 8H DEGREES/ 

DATA YNAH8/8HEA6SFSC ,8H HERTZ / 

- ' DATA ‘YNAM9/8HEABFSCDT,8H HZ/SEC / “ — - “ 

GO TO (100,200. 300, 700, 500, 600,700, 800,900, 1000, 1100,1200), ISW 
FORMAT (1H ) 
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SUBROUTINE CONTRL ' 73/172 'IS FIN 4. 6+452 ' 05/18/79 13. A3, 29 


10 F0RMAT(9l /) > 

‘ 11 ' FORMAT ( 1H1) 

60 C - 

c 

- 100 CONTINUE • - - 

• C THIS IDENTIFIES THE SCENARIO AND REINITIALIZES; AS NECESSARY, 

'65 CTHE FOLLOWING RECEIVER PARAMETERS " 

CSIGMA, IAE,DSNRDB,RHQ;FSC,B£TA;JM,BMLS 

IF ( NFIRSTI GO TO 155 ... .. 

NGAC-. FALSE. 

70 JBNAM*JOBNAMEU) 

“ ~ ‘ ' ' ™ 'ISIM-5 ’ ‘ - — 

IMOD-4 

'* WRITE ( 7; 1 10 ) ‘ ’ " ' " “ ' ' 

110 FORMAT (3AH1I NT ERFERENCE ACQUISITION SCENARI0/7H 60 LOE/J 

- ~ 75 • ip (IRCVR.N6.U GO TO 118 , — 

WRITE (7; 115 ) f 

115 "'FORMAT ( 35H THIS IS NOT FOR THRESHOLD RECEIVER) " 

STOP A ABORTED— NOT FOR THDRVRF 

~ ' 118 “CONTINUE ' - 

80 CALL L0GIOC6HFILEIN;FILEIN,O> 

“ IF(.NOT.FILEIN) NSTART »0 "" " “ - * 

IF( .NOT ,F I LEIN ) GO TO 'l22 

IX«IATTACH(6LTAPE15,DATIN) ' 

IF(IX.NE.O) CALL INT I0I6HIX < AT ) , IX, 1, 1 ) 

" “65-- IFUX.NE.OJ STOPFINPUT FILE ATTACH NOT SATISFACTORY* ' 

WRITE(7,120) (0ATIN(I),I-1,2J 

120 FORHAT (23H THIS READS INPUT FILE ,2A10/J 

122 CALL LOG ID (6HFIL0UT,F IL0UT,0) 

---CALL INTI0(6HNSTART, NSTART, 100,0) — “ - ~ 

90 NSTOP«NSTART 

.CALL INTIQ16H NSTOP.NSTOP, 100,0) " 

CALL LOGIO(6HTETHRD,TETHRD,OJ 

CALL LOGIC (6HAD APT V, AD APTV, 0 ) " ------ - 

IF(TETHRO) ITETHR-2 

— 95 • — IF(ADAPTV) GO TO 135 ' • 

IRSIGN— 1 _ __ 

135 CONTINUE 

100 IASC*3*(I-l)+IDNRS(I)+6 

10 ENTS (I )*IDASCI(IASC) - 

145 CONTINUE 

* ENCODE < 8,150, ID ENTS (1) ) IOASCU ISIM), IHOD ' ■ 

150 FORMAT ( A7, II J 

105 WRITE (7,1521 IDNRS; IMOD ’ . 

152 FORMAT (1H »6Il#lX,U/> 

WRITE 1 (7,153) IDENTS 

153 FORMAT (IK ,A8) 

- CALL INTIOt 6H " -IR,IR,6,0) — — - • 

110 CALL REALIO ( 6HRH0MAX, RHOMAX, 0 ) 

- ‘CALL REALI0(6H DTHO,OTHO,0> — 

■ CALL RE ALIQ(6H TORO, TORO, 0) 

BETAO*BO*10O,/PI • — — ’ ■ 

FSC0-WSCQU./(2.*PI) 
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NOTE 


■' SUBROUTINE CONTRL 73/172 TS 


FTN 4.6+452 05/18/79 13.43.29 PAGE 3 


■115- 


120 


-125- 


130 


135 


140 


145 


150 


155 ' --- 


160 


165 


170 


MULTIPLY BY 1 — IGNORED 

CALL REALIDI6H BETA0,BETAO,O) ... 

CALL REAL1D(6H FSCO,FSCO,0> ‘ 

IF (IR.GE.5) CALL REALIOl 6HGQGT6 B, GQGT 88,0 ) 

IF (IR.GE.6) CALL RE AL 10 < 6HGQGT99,GQGT99, 0 ) 

B0*BETAQ*PI/180.‘ ' " 

WSCQ«FSC0*2*PI 

- -- NRUN-NSTAAT-1 * 

DSNRDB-20. 

__ BETA- 45. 

BMLS.l. 

' - - - BRCVR-1. “ - “ " ■ 

THESEP* 1. 88 

FSC00T*X0(9,IAE)*.5/PI — ' 

155 CONTINUE 

IF (FILE IN ) GO'TO 156 ' 

NRUN-NRUN + 1 

WRITE 1 7, 11) ■ 

CALL INTIO <6H NR UN,NRUN, 1, 1 ) 

CALL REALIO(6HOSNRDB»DSNRDB,OI ... 

CALL REAL I0( 6H RHO,RHO,0) 

CALL RE Al 10 ( 6H ' BETA, BETA, 0) ~ — ’■* 

CALL REALI0(6H FSC,FSC,0) 

IFIIR.EQ.6) CALL REALIO ( 6HFSCD0T, FSCD0T,0) 

CALL REALIO ( 6 H BMLS,BMLS,OI 

CALL RE ALIO( 6H BRCVR, BRCVR,0 J ------ “ 

CALL RE ALIO ( 6HTHES EP,THESEP»0) 

‘"CALL INTI0(6 HK ST ART,KST ART, 100,0) 

GO TO 170 

-158 CONTINUE ’ -- ” .... 

READ (15,160) NRUN, DSNRDB,RH0,BETA,FSC,FSCD0T,BHLS,8RCVR, 
CTHESEP.KSTART - • 

I F ( EO F ( 15 ) ) 180,165 

- 160 - FORMAT 1 15, BG10 . 3, 15 ) — 

165 IF(NRUN.LT.NSTART) GO TO 156 

- IF(NRUN.GE.NSTOP) MORE*. FALSE. 

170 IF(NRUN.GE.NSTDP) MORE*. FALSE. 

- — X0(3,lAE)-X0(6,IAE)-0. - 

X0(5,1AE)-X0<2, IAE (-THESEP 

XQ(9,IA E )*FSCD0 T +(2. + PI) 

EBETA0.ABS(B£TA)-A6S(BETA0) 

EFSCO»ABS(FSC)-ABS(FSCO) ■ - “ - 

RETURN 

-• 1B0 S TOPWEDF REACHED ON INPUT FILEM 

C 

- • c********************************************************************* 

c 

200 CONTINUE - - - - ■ 

C THIS OUTPUTS BASIC SIMULATION DATA OF INTEREST, SUCH AS 

- CTHE ANGLE FUNCTION, INITIAL STATE, ETC.' ' “ - * 

WRITE (7,209) 

• —209 — FORMA T ( SH1NRUN, 4X, 6HDSNRDB, 7X, 3HRH0, BX, 4IIBETA, 8X, 3HFSC,7X, 6HF SCD 0T“ 
C,8X,4HBHLS,8X,5H0RCVR,6X,6HTHESEP,5X,6KKSTART) 1 
WRITE(7,210) NRUN, DSNROB,RHO, BETA, FSC, FSCDDT, BM LS, 
C8RCVR,THESEP,KSTART 
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SUBROUTINE CONTRL ' ’ 73/172 TS .... fTN A. 6+452 ‘ 05/18/79 13.93.29 


210 FDRHAT(1HO,I9»8<2X,G10.3),2X,I9> 

IF ( .NOT • FILOUT ) GO TO 295 ' ’ * 

IF(NRUN.LE.9) ENCODE ( 10 ,220, DOUT 1 IONRS,1HU,IHOD, 1H0,NRUN ” " 
220 F0RMAT(6U,A1,I1,A1,I1) 

175 I F < NRUN. GE . 10 1 ENCODE ( 10, 2 30»D0UT) 10 NR S, 1 HU, I MOD, N RUN 

' " “ " 230' FDRHAT(6X1,A1,I1,I2) *' ' ' 

IX»IREQST(6LTAPE17,3L*PF) 

IF(IX.NE.O) CALL INTIOt 6HIX(RQ> , IX, 1,1) 

IF(IX.NE.O) STOPWOUTPUT FILE REQUEST NDT SATISFACTORY* 

180 ' WRITE (7,290 ) l D ATOUT < I ) > 1-1, 2 ) 

290 FORMAT (25HOTHIS WRITES OUTPUT FILE ,2A101 

” ” 295'" CALL DATEtTOOAY) ■ 

WRITE (7,250) FUNCTN (IAE),IAE 

----- 250 - FORMAT 11H0,A7,15H FUNCTION ( IAE-, I1»1H) ) ' " ' 

165 X(9)-X0(9»IAE)"Q. 

WRITE (7,260) ( ( I, X< I ) ) , I«i,9 ) ' ■ ' - 

260 FORMAT (15H0INITIAL STATE»//(3H X(,I1,9H> » ,G13.6)) 

"■ WRITE17, 270) I DENTS (2 ) “ 

270 FORMAT ( 1H0, A7) 

190 - “ RETURN ‘ ' 

C 

— “ * (;****♦***♦*****+**♦♦****************♦***+***+♦*+*♦*♦**♦**♦*********♦** 

c 

300 CONTINUE - - - - 

195 C THIS IDENTIFIES THE BASIC RECEIVER STRUCTURE (THRHLD, OPT, SUBOPT) 

' 1 CANO REINITIALIZES, AS NECESSARY, THE FOLLOWING RCVR DATA 

CIR (NEGATE ONLY), NOAC,NOKLHN,NOLOE,BRCVR,DELBL,TETHRO 

■' IF(IR.GE.5) GQGT(8,8)-GQGT88 * .... 

IF(IR.GE.6) GQGT(9,9)*G 0GT99 

'200 ITIT»HIN0(IRCVR,2) 

C 

C NEGATE IR WITH THE FOLLOWING FOR NONAOAPTIVE RECEIVER 

IR*ISIGN(IR,IRSIGN) 

205 __ RETURN 

C****+***********t*********++****+*******t*********t+****tt*********** 

900 CONTINUE 

210 C THIS OUTPUTS BASIC RECEIVER DATA OF INTEREST 

WRITE (7, 910) (I0ENTS(I),I*3,9I,IR,NG,NS 

' 910 FORMAT (1H0, A8, 9HRCVR/1H0, A8,6HDESIGN/5H ( IR*i 12, 9H, NG-, II, ’ “ “ 

♦ 9H,NS-,U,1H)) ' 

WRITE (7,920 ) (IDENTS (I),I»5»6) “ - 

215 920 FORMAT ( 1H0, AB/1H0, A 7 / ) 

” • - RETURN 

C 

+ + + ' 

C 

220 500 CONTINUE - 

C THIS SETS-UP THE KSET-LOOP 

RETURN I — — ‘ •• 

C 

C********************************************************************* ' 

225 C 

600 CONTINUE ... 

C THIS SETS-UP THE LG-LOOP FOR THE (MSET)-TH SERIES OF SETS 
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230 


233 


240 


243 


250 


255 


260 


--- 265 


270 


" -275 


260 


SUBROUTINE CONTRL ' 73/172 ' TS 
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RETURN 

C * + ****♦*+**+**+*♦+* + + + ** +++* ****** + **♦♦+ + +++*♦*«<+*****<.******* + * +**'** ' 

700 CONTINUE 

C THIS SETS-UP THE K-LODP FOR THE (LG)-TH SET OF KH SCANS 

CALL INTI0(6N KH,KH, 1,1) 

WRITE (7+ 710) <STITLEU),I*1,9> 

710 FORMAT (4H0 K > 3X, 6HCSNRT0, 5X,6HCSNRFR, 3X,3KQTY, 3X, 9<2X,A6,3X1/) 

RETURN - ... 

C 

" (;♦*** + * + +♦♦♦**** + *** + *+*+**+**++*♦ ++*♦*++*****♦*♦*++****♦***♦*** + *♦♦*+- — 

c 

800 CONTINUE • " 

C THIS INITIALIZES THE K-TH SCAN 

IF (K. EQ.KSTART ) X ( 4 ) »RHQ*X{1) 

IF (K.EQ.KSTART) NGM-NG 

C 

~ C*********^*************************4*************-******»************* -• 


c 

900 CONTINUE .... 

C THIS SAVES/PREPROCESSES DATA FROM THE K-TH SCAN 

THERR-X(2)-XS<2) 

DTHE “X ( 2 )-X (5 ) 

C0L6-SQRT(PP0IAG<2)) 

DO 910 1*1, NS 

- • - ES<II*X(I)-XS(I) - - - — 

RMSVAL<I)-SQRT<PPDIAG(I) ) 

910 - CONTINUE - “ 

IF (NS.GE.7) ES 17) * ABS CX( 7> )-AflS (XS (7 J I 

-IF (NS.GE.B) ES( 6 ) - . ABS (X (8) l-ABS (XS ( 8 1) 

IF ( NS «GE .9) ES(9)"A8S(X(9)>— AB$(XS(9) ) 

' SCANNR(K) «K -- ™ ' 

EALF A ( K ) • ES ( 1 ) 

- ETHET t K ) >ES ( 2 ) ™ ~ '• 

EALFR (K ) »ES (4) 

- ETHER(K)*ES(5> - . . - ... 

XFOUR (K ) »X(4)/X(1) 

-- " ~ IF (NS.GE.7) EBETA(K)-180. + ES(7>/PI 

IF(NS.GE.B) EFSCtK)*O.5+ES<0)/PI 

— IF (NS.GE.91 EF$CDT(KI*Q.5+ES<9)/PI 

. IF(NRUN.NE.NSTART.AND.K.NE.KH) RETURN 

. - HRITE ( 7,9201 K> CSNRT,C$NRF»1HX,(X(I)»I*1,9) “ ' 

920 FORMAT (1H , 1 3, 2 i IX/ G10. 3) , 8X, Al> 1 X/ 9 ( IX. GIO . 3 ) I 

-WRITE- (7.930J-7H “ XS , < XS II ) » I *1,NS ( - 

WRITE (7,930) 7H ERR, ( ES < I > ,1* 1,NS > 

WRITE (7,930)-7HSQ(PIIJ,(RMSVAL(I),I«l,NS) " 

930 FORMAT (1H ,27X> A7, 1X,9 (IX, GIO. 31) 

WRITE (7,1) - 

RETURN 



C *************** ++*++***+*♦*+*************+*+*++*♦***+*+*+****+**♦*+** 


1000 CONTINUE 

C THIS SAVES/PROCESSES/OUTPUTS DATA FROM THE (LG)-TH SET OF KM SCANS 
WRITE ( 7,1060 ) (GOGT<I,I),I>X,HS) 


CTLACQ6 
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285 1060 . FORHATi 10 ( / 1, 18H ON THE LAST SCAN* , 7X, 9HGQGT t I, I 1 ,1X>9< 1X,G10.3 )) 

YHIN-YHAX-O. ■ ' ' 

WRITE (7,11) . . 

CALL INTIO 16H NRUN, NRUN, 1, 1 ) 

CALL PLDTRI SCANNR, E ALF A, KH > XNAHE, YNAH1, YHIN, YHAX ,0 1 

290 CALL REALIO( 6H YHIN, YHIN, 1) - ' 

CALL REALID(6H YHAX,YHAX,1| 

' YHIN-YHAX-O. - - .... 

WRITE (7, lit 

CALL INTIO (6H NRUN,, NR UN, 1, 1 ) 

295 CALL P LOTR ( SCANNR, ETHET, KH, XNAME, YNAH2, YHI N, YHAX, 0) 

" CALL REALI0(6H ‘ YHIN, YHIN, 1 ) 

CALL RE AII0(6H YHAX, YHAX, It 

" •“ YHIN-YHAX-O. " 

WRITE (7, lit 

300 CALL INTIO C 6H NRUN, NRUN, 1,1 ) 

CALL PLQTR ( SCANNR, EALFR, KM, XNAME, YNAH3, YHIN, YHAX, 0 ) 

CALL REALIQ(6H YHIN, YHIN, It " 

CALL REALI0(6H YHAX, YHAX, It f 

■ • • ■ • YHIN-YHAX-O. ' - - 

305 WRITE (7,111 

CALL INTIO (6H NRUN, NR UN, 1,1 ) • ■ 

CALL PLOTRI SCANNR, ETHER,KH,XNAHE, YNA HA, YHIN, YHAX, 0) 

" ' CALL REALI0I6H YHIN, YHIN, 1) ~ 

• CALL REALI0(6H YHAX,YHAX,XI 

310 YHIN-YHAX-O. ..... 

WRITE (7,111 

~ ' ~ CALL INTIO C6H NRUN, NRUN, 1, 1) .... 

CALL PL0TR( SCANNR, XFOUR,KM,XNAHE, YNAM5, YHIN, YHAX,0) 

- " CALL RE ALI0(6H YHIN, YHIN, It ' “ ~ 

315 CALL REALIQ(6H YHAX, YHAX, 1) 

IF (NS.LE.6t GO TO 1065 ...... ... 

WRITE (7,111 

• — ' " CALL INTIO (6H NRUN,NRUN,1,11 ■ .. . . 

YHIN-YHAX-O. 

320"- CALL P L OTR ( SCANNR, E BET A, KH, XNAHE, YNAH7, YHI N, YHAX, Ot 

CALL REALI0(6H YHIN, YHIN, 1 > 

• CALL REALIQI6H YHAX, YHAX, 1) • - 

YHIN-YHAX-O. 

WRITE (7, 11 ) “ - • .... 

325 CALL INTIO (6H NRUN,NRUN,l,lt 

CALL PLDTR(SCANNR, EF SC, KH, XNAHE, YN AH B, YHIN, YHAX, 0 ) 

CALL REALIO ( 6H YHIN, YHIN, It 

•’ ' CALL REALI0(6H YHAX, YHAX, 11 " ~ “ • • - • 

IF(NS.LE.S) GO TO 1065 

330 ' • ' YHIN-YHAX-O. 

WRITE(7,111 

CALL INTIO ( 6H ' NRUN, NRUN, 1, 1) “ " ..... .^ 

CALL PLQTR ( SC ANHR, EFSCD T, KH, XNAHE, YNAH9, YHIN, YHAX, 01 

CALL REALIQ(6K YHIN,YHIN,11 

CALL REALI0L6K YHAX,YHAX,11 

CONTINUE ■ " 

IF < . NOT .FILOUT 1 RETURN 

WRITE(7,11) “ . . , . 

WRITE(7, 10701 (DATOUT (11,1-1,2) 

F0RHAT113H OUTPUT FILE ,2A10,1H*/)' 

WRITE (7,1072) DQUT,DELT,HTIHES,LGHAX,KH, TODAY, JBNAH 


335 


340 


1065 


1070 


PAGE 6 
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PTN 9.6+932 03/18/79 13.93.29 


393 


350 


335 


360 


3 63 “ 
370 


375 - 


3 80 


' 385 


390 


395 


1072 FORMAT 1 1 H , A10, OX, G 13 . 6, 3X , 3 ( 3X, 13, 10X I , A10, 8 X, AlO / ) 

WRITE (7,1079 1 I DENTS , KS TART 
1079 FORMATtlH , 6 ( IX , AO, 9X ) , I 3/ ) 

WRITE (7, 1076) HRUN.DSNROO, RII0,0£TA,FSC, FSCOOT, BMLS, BRC VR, THESEP 
1076 FORMAT! IK , 12, 3 X, 8 1 3X, GlZ, 6) / ) 

IKH-HINO 1 35, KM-9 ) ' ....... 

00 1077 I *1 , 1 KM 

•- 1077 WRITE(7,1Q76)EALFA(I),ETHET(I),EALFR(1),ETHER(I),XF0UR(I) ' ‘ ' * ' 

1078 FORM AT ( IH , 3 ( G13 .6, 5X I > 

DO 1079 1-1,5 ' 

1079 WRITE (7, 1080) 

•••1080 F0RHAT(1H,3(6X,1H.,11X1) “ 1 ' - “ 

KM3-KM-3 

DO 10B1 I-KM3,KH 

1081 WRITE! 7, 1078 lEALFAl I),ETHET(I ),EAIFR( I), ETHER! I),XFOUR!I) 

WRITE!7,1083)RHOMAX,OTHO,TDRO,BETAO, FSCO,E8ETAO, EBETA(KN) , EFSCO, — “ 

CEFSC(KM) 

~ 1083 'FORMAT (1HC,9!G12.6,2X) ) ” 

WRITE! 17) DOUT, DELT»KTIMES,LGMAX,KM,TODAY, JBNAM 
WR I TE < 17 » IOENTS,KSTART 

WRITE! 17) NRUN,OSNRDB,RHO,B ETA, FSC, FSCOOT, BMLS, BRC VR, THESEP 

DO 1090 1*1, KM • • - ~ 

WRITE (17) EALFA(1),ETHET(I),EALFR(1), ETHER! I ), X FOUR ( I ) 

1090 CONTINUE ' • ' “ • 1 - 

WRITE 117) RHOMAX,OTHO, TORO, BETAO, FSCO, E BETAO, EB ETA (KM ! , EFSCO, EFSC! 

- CKM) .... . - 

REWIND 17 

IX*IATTACH!6LTAPE20,OATOUT) -- - - ■- 

CALL RETURN(6LTAPE201 

‘ IF (IX.NE.O) ’ GO TO 1095 - - 

IX*ICATAL0(6LTAPE17,DAT0UT,2LPW,8RKIGHFILL,2LRP,363) 

- GO TO 1096 1 ' . - • - - - 

1095 IX*ICATALO(6LTAPE17,DATOUT,2LXR,8RHIGHFILL,2LRP,365) 

■ 1096 IF(IX.NE.O) CALL INT 10 1 6HIX t C A ) , I X, 1, 1 > 

IF(IX.NE.O) STOPi* OUTPUT FILE CATALOG NOT SATISFACTORY/ 

' - ’ CALL RETURN (6LT APE 17) r> - - 

WRITE (7,1099) (DAT0UT(I),I*1,2) S. 

- 1099 FORMAT (13H00UTPUT FILE ,2A10,33H IS WRITTEN, CATALOGED AND CLOSED) _ 3? 

RETURN "0 O 

C G) ~j» 

c* Jj- 

1100 CONTINUE 

- -C THIS SAVES/PROCESSES/OUTPUTS 

CLGMAX SETS OF KM SCANS 

- RETURN 

C. 

- -c * *■* * ♦ *-*-*-*-*•*'*-♦ + * 

C 

1200 CONTINUE- 

C THIS EFFECTS CLOSURE OF THE S 
WRITE ( 7,11 ) • - 
RETURN 

C **+*,+**♦***■*+■>** + + + ***+** ♦****♦ ************** ************** ********* 

c - ■ 

END 


DATA FROM THE (HSETI-TH SERIES OF - 

*-*-*-*-* *-+-* ♦ *-♦ **#♦# + *♦#- 

IHULATION RUN 


§-2 

£ o 


PAGE 7 
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SUBROUTINE 
A5000B CM STORAGE 


CONTRL ' ' 73/172 TS FTN A.6+A52 ' ’ 05/18/79' 13. A3. 29" ' PAGE 8 

USED 11.3*9 SECONDS 
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C-ll 


PROGRAM MLSSIM 


73/172 TS 


PTN 9.6*952 


PAGE 


1 


05/17/79 19.50.06 


5 . 


10 


15 


20 


25 _ 


PROGRAM MLSSIM ( INPUT , OUTPUT, TAPE 10- INPUT# T AP 6 1 2 p T A P E 1 3 > 

47 AP fc 7- OUTPUT* TAPE 17* TAP £20 1 
REAL LAUDA 

LOGICAL NOKLMN.NOLOE. NQAC * KAL HAN* LOE * TE 1 HRO* MORE 

COMMON /IOOATA/IONRS (61 

C OMMON /RC VROO/ T HAM AX * THAMIN*TS* TR* OMEGA »TF 
CLIMM0N/RCVR01/NGMIN*NGMAX*DELBL»NGM*1R* 1AE 
COMHON/RCVR02/RHOMAX,DTHO*TDRO»BO*WSCO*NSO(6),NGO(6) 
CDMMON/RCVR03/PI*F (9,9)> FL25( 91* F$ AMP, K« KM. TETHP 0, NG* NS * JH 
C0MM0N/RCVRO9/DELT# EO ( 9 ) * GQGT (9* 9 ) , H ( 6* 91* ICQUNT* SIGMA 

. C0HMON/RCVR05/N0L0E,N0KLMN,N0AC,CAMES<6),R0IAG(6),PMDIAG<9] 

COMMON/RCVR06/PPDIAG(9I,RMAT( 6*6)*PHI( 6* 6 ) *P A( 9, 9) , LAMOA ( 6 1 
C CMM0N/RCVR07/T 1130) *V< 130) 

COMMON/RCVRO0/XSLOE (9) * ESL0£(9)*ES (9) 

CDMM0N/RCVR09/BRCVR*6B»P0CRIT*CC 

COHMON/RCVR10/XS1(9),XS(9) 

. COHMQN/MLSOOO/ALFA,THE*THEOOT*ALFAR*THR,THRDOT,B,WSC*WSCDOT 

C0MH0N/MLSO01/CSNRT*CSNRF*DSNRDB*RH0*BETA*FSC*LGMAX 

CDHMON/HLSOO2/0CSNR,CSNR,LG,TPKT*TPKF 

C0MMON/HLS003/FLlOAE(9,2)*FL10(9),OELTAT(2)*XO<9,2)»YO{9,21 
C0HMON/HLSO09/6MLS* B6 B » MT IMES ,MSET> MORE 
C 

10 CONTINUE . 

CALL MLS SUB 
. IF(MURE) GO TO 10 
STOP 

. ... END . __ . 


91000B .CM. STORAGE USED,... .131 SECONOS. 


MLSIM6 
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SUBROUTINE MLSSUB 


73/172 TS 


^FTN 9.6+952 


05/17/79 19.50.06 PAGE 1 


.. 5 . 


10 


15 . 


20 


25 


30 


35 


90 


,95 


50 


55 


SUBROUTINE HLSSUB 

PEAL IAKOA ‘ ,, 

LOGICAL NOKtMN,NQlO£>NOAC,KALMAN»LOE, TETKRD, HORE 
COMMON/RCVROO/THAMAX>TKAMIN»TS»TR»OHEGA>TF 

C0HMDN/RCVR01/NGMIN,NGMAX,0EL8L>NGM,IR,IA£ 

C0MM0N/RCVRO2/RH0MAX,DTHG»TDR0,B0,WSC0,NS0(9),NG0<9> 

. _ .COMM0N/RCVR03/PI>F{9,9),FL25(9)»FSAHP,K,KM,TETHRD, NG,NS,JH 

COMMDN/RCVR09/DELT,E019>, GQGT < 9, 9 ) , KL 6, 9 ) , IC OUNT,S IGMA 
COMHON/RCVR05/NOLOE,NOKLHN,NOAC,GAMES(61>R01AG(6J,PHOIAG<9) . . 
C0HH0N/RCVR06/PPDIAG(9 >,RMAT< 6, 6), PHI ( 6, 6 ) , P A < 9, 9) , L AMOA < 6 ) 

C0MM0N/RCVRO7/T<13O),V<130> 

C0MMON/RCVRO8/XSLDEI9), E SLOE ( 9 ), ES (9 ) 

. CUMMQN/RCVR09/BRCVR,BB»P0CRIT,CC 
COMHON/RCVR10/XS1C9),XS(9> 

.. CONHaN/HLSOOO/ALFA,THE,THEOOT,AlFAR,THfi,THROOT,B,WSC»WSCOOT , 
COMMON/HLSOOl/CSNRT, CSNRF, DSNR08, RHO, BE TA, FSC, LG HAX 
COMMQN/MLSOD2/DCSNR, CSNR, LG,TPKT»TPKF 

C0MMQN/MLSC03/FL10AE(9,2l*Fll6(9J,DELTAT(2l,X0(9»21»Y0(9,2) 
COMMON/MLS009/BMLS,BBB,MTIHES,HSET,MORE 
C GENERAL SIMULATION! OPTIMIZATION OF HLS RECEIVERS FOR 
C MULTIPATH ENVIRONMENTS , . ' 

DIMENSION Xl<9),INDBXt2)>Y(9),X(9) « 

EQUIVALENCE ( THAMAX, Y < 1 ) ) , < AL F A, X ( 1 ) ) 

C 

C FOLG BEGINS EXECUTABLE STATEMENTS 
C 

. . . PI2»2.*PI 

SQ22»S0RT(.5) 

C.. . . 

C FOLG INITIALIZES THE DIAGONAL OF FIB, 81 
C • . 

9 DO 10 1*1,9 
Fii,n-i. 

10 CONTINUE 

CALL CONTRL ( 1 ) 

SSQ2»SIGHA*SQRT(Z. > 

C 

C FOLLOWING COMPLETES INITIALIZATION ANO COMPUTES SECONDARY 

C PARAMETERS. 

C 

DO 15 1-1,9 
FL10(I)-FL10AE<I,IAE) 

15 CONTINUE 

DO 20 1-1,9 
. Y(I)-YOCI,IAE) 

20 CONTINUE 

OMEGA»~( THAMAX-THAMIN ( / TS * . 

S6CPD-1. /OMEGA 

TF-TS+TR-2.+THAMIN+SECP0 

C 

C FOLG ARE CONSTANT PARAMETERS USED BY P . 

C 

, BBB-2.9/BMLS 

DUM-GAUS S ( 1 • 0 ) 

ALPHA-10. ♦♦(0SNRDB/20.) 

X0< 1, IAE l-ALPHA ' 

ALPHAR-RHO+ALPHA . 
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...60 


65 


. .. 70 


' 75 


80 


85' 


90 


95 


100 


105 


...HO 


SUBROUTINE MLSSUB 73/172 TS 


FTN 8.6+952 05/17/79 18.50.06 PAGE 2 


30 

C ' 
C 

c 


_.X0(8,IAE)*ALPHAR 

X€(7iIAfc)*PI+BETA/180, 

. XU(8,IAE)-PI2 + FSC.. . 
TSAMP-l./FSAMP 

.. DELT-DELTAT(IAE) 

F (2,3 1 » DELT 

f ( 5, 6 ) -DE LT . . 

F(7,8)-DELT 

F<7,9>-0.5+DELT++2 . . 

F (8 » 9) “DELT 
.. JM1-JM + 1 ... 

JK2-JH/2 

. TWW2-0.5*TSAMP*UM2+1> 
00 30 1*1,9 
. X ( 1 ) - XO ( I , I A£ ) . 
CONTINUE 

CALL.C0NTRLI2) . .. . 


FOLG CALLS. RECEIVER FOR INITIALIZATION 
K«0 

CALL RCVR 

FOLLOWING BEGINS SIMULATION PER SE, LGMAX RUNS OF KM SCANS EACH 

CALL CDNTRL 1 5 » 

00 777 MMSET* 1, MT I ME S 
MSET-MMSET 

CALL CONTRL 1 6 } ' 

... .DO 1 LGG-1, LGMAX. . 

LG*LGG 

.. .. CALL CONTRL C 7 1 . _ _ 

DO 2 KK-l, KH 
K-KK 


100 


110 

120 


CALL CONTRL ( 8 1 

IF (K .EO, 1) GO TO 122 . 

FOLLOWING ADVANCES THE TRUE STATE AND SAVE PRIOR VALUE 

'do’ ioo’ i-i»9~ 
xim-xu) 
xm*o. 

CONTINUE 
DO 120 1-1,9' 

00 110 J-1,9 „ ... 

xci)*xm+FU»J)*xi(ji 

CONTINUE 
CONTINUE 

8-PVALUE (B, PI,0. ] 


C FOLG SETS THES PRIOR TO COMPUTING SAMPLE TIMES., 
THfcS«XSI2>+DELT*XSI3) 

I F ( .NOT • TETHRD I GO TO 128„ 

122 CONTINUE 

00 123 1-1,9 _ 



MLSIM6 
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115 


120 


125 


130 


135 


190 


195 


150 


155 


160 


165 


170 


. xsitn*xu»-Eom _ . . 

123 CONTINUE 

THES-XSU2) . ' 

129 CONTINUE 

C FOLG BEGINS COMPUTATION OF SIGNALS AND RELATED QUANTITIES 

C .... FIRST, CALCULATION OF CONSTANTS ON THE PRESENT SCAN . . 

C 

. AL2*ALFA+*2 - . ... 

AR2-ALFAR++Z 

AA2"Z.+ALFA*ALFAR ... - 

TPST*(THES-THAMAX)+SECPO 

. TPSF»TF+( THAMIN-THES 1 +SECPO . . 

TZT-TPST-TWW2 ' . 

TZF-TPSF+TWW2 ‘ 

C FOLG COMPUTES FOR THIS KTH SCAN THE SIGNAL PEAK TIMES TPKT, TPKF AND 
C THE COMPOSITE SIGNAL-TO-NOISE RATIO CSNRIKI . ... — f 

tpkt»(x(2)-thamax)*secpo r* j 

TPK F?TF + 1 THAMIN-X ( 2 1 ) + S ECPD . 

c 33 C 

C THAJ*THA(TPKT)«X<2), BY DEFINITION Q.J&. . 

C PJ*PMLS(THE-THA(TPKT 11*1.0, BY DEFINITION - O ?' 

C AND SIMILARLY FOR TPKF . . . . -*S a? 

C 

. . PRJ*PMLS(X(5)-X(2I) * . ... ... 

BT«PVALUE(B+(WSC+0.5*WSCD0T+TPKT)+TPKT»PI,0. ) , * J 

.. BF«PVALUE(B+(MSC + 0.5 + NSCD0T*TPKTi*TPKT,PI,0.1 . . . „ ’ _ 

0JT«AL2 + AA2+PRJ*C0S(BT)+AR2*(PR,I**2) 

QJF*AL2+AA2+PRJ+C0S(BF>+AR2*(PRJ**2) 

CSNRT*SORTtOJT) ■ 

. CSNRf-SQRT(OJF) ' . ...... 

CSNRMN*AMIN1(CSNRT,CSNRF1 

. CSNRMX-AMAX1(CSNRT,CSNRF1 . _ . 

CSNR-CSNRMN 

DCSNR-CSNRMX-CSNRMN. .... 

C 

C FOLG INITIATES A J-LOOP TO COMPUTE SAMPLE TIMES AND (LINEAR! . . 

C ENVELOPE SAMPLE VALUES 

C . . 

DO 130 J *1, JH2 

. .. T INCR* J+TSAMP . . 

JFR»JM1-J 
INDEX (1)*J 
INOEX (21-JFR 

C FDLG COMPUTES SAMPLE TIMES . ... 

T J* TZ T + T INCR 

T ( J 1 “T J ... ... . I i- 

TUFRWZF-TINCR 

THAJ-THA(TJ) 

PJ*PMLS( THE-THA J 1 • . 

prj-pmls(Thr-tfIaj) 

C FOLG COKPUTES ENVELOPE SAMPLES 

. ... DO 127 Irl,2 _ l ..... . ... ... . 

JVAL-INOEX(I) I ’ 

T J VAL*T l JVAL 1 
XNC*SQ22*GAUSS<0. 1 
XNS-SQ22+GAUSSC0.) 
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.. .. BL0CAL*PVALUE<B+(WSC+O.'5*WSCDaT+TJVAL)+TJVAL,PI»O.) .. . . 

0J»AL2+tPJ**2)+AA2*PJ*PRJ+C0S<BL0CALJ+AR2*(PRJ++2) 

QJ a AMAXl{QJ.O.O) ' . „ ...... 

SORTQ2.2.*SORT(OJ) 

._UJ-QJ + S0RTQ2 + XNC + XNCt+2 + XNS* + 2 „ 

V<JVAL)-5SQ2*SQRT<UJI 

127 . CONTINUE . 

130 CONTINUE 

C . ’ FOLLOWING COMPUTES RECEIVER RESPONSES 
CALL RCVR~ 

C . . . 

C FOLLOWING ASSIMILATES DATA FROM THIS SCAN FOR FUTURE EVALUATION 

CALL C0NTP.U9 ) 

Z CONTINUE . , . _ , _ ... 

C 

C FOLLOWING ASSIMILATES DATA FROM THIS LG-TH SET OF SCANS ... 

C 

. CALL .CQNTRLI10I, . . ’ . .. .. . . 

1 CONTINUE 

C FOLLOWING ASSIMILATES" DATA FROM THIs'mSET-TH SERIES OF UMAX SETS OF KM SCANS" 
C 

CALL CONTRL(ll) 

777 CONTINUE _ , , . . .. 

C 

C FOLLOWING CLOSES „THE„ SIMULATION RUN _ 

C 

CALL C0NTRU12) 

RETURN ' ' 

END _ , _ 


.5 1 00 08_CM. STORAGE USED 1 .965 , S ECONDS 
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. 5 

10 

- •- 15 


20 

25 

30 

A1000B 


FUNCTION THA 73/172 TS 


FTN A.6+A52 • 05/17/79 1A.50.06 PAGE 1 


FUNCTION ,THA<T) . . ' 

■ C 

C THIS COMPUTES THE ANTENNA SCAN ANGLE AT LOCAL SCAN TIME T. ... 

C THE PARAMETERS OF THE SCAN WAVE FORM, HENCE THE IDENTITY OF 

. C ... THE ANGLE FUCTIQN, ARE PASSEO THROUGH COMMON AND ARE DEFINED .. 

C AS FOLLOWS! 

C TR-’TIME BETWEEN TRAVERSAL OF ZERO DEGREES IN A TO-FRO SCAN 

C TS> DURATION OF THE TO SCAN 

C TF-DURATION OF THE TO SCAN+INTERSCAN REST INTERVAL . . . . . 

C THAMAX-ANTENA ANGLE AT BEGINNING OF TO SCAN 

.. .. . C THAMIN-ANTENNA ANGLE AT END OF TO SCAN 

C OMEGA'ANTENNA ANGULAR SCAN RATE, DEG/S EC, DURING TO SCAN 

C ’ 

COMMON /RCVROO/THAMAX, THAMIN, TS,TR, OMEGA, TF 

Tl-TS+TF • . . .... 

IF(T;GE.0.01 GO TO 50 

THA "THAMAX , . . ■. . 

RETURN , 

50 IF (T.GT.TS)GO TO 100 ... „ 

THA.THAMAX+OMEGA+T 

’ RETURN . . .... 

100 IFIT.GE.TF) GO TO 200 

THA. THAMIN . .... ., 

RETURN 

200 IF(T.GT.Tl) GO TO 250 ' . _ 

THA.THAMIN-OHEGAA(T-TF) 

RETURN . . . . . 

250 THA-THAHAX 

... RETURN.. ; 

END 

CM STORAGE USED ' .119 SECONDS ’ 


MLSIM6 
Page 6 of 8 



C-17 


SUBROUTINE 0FLTR1 73/172 TS 


SUBROUTINE DFLTR1 ( X/ Y/C ) 
DIMENSION CUI 
S - X-C < 3 ) +C < ) 
Y-C(1)*S+C<2)+C(41 

cm-s .. . 

RETURN 
END 

, . 41000B CM STORAGE USED . . .046 SECONDS ... 




FTN 4.6+452 


05/17/79 14.50.06 


PAGE 


1 


MLSIM6 
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C-18 


BLQCKDATA HIS 73/172 TS 


FTN 9.6+952 05/17/79 19.50.06 PACE 1 


- . BLOCK DATA HLS 

REAL LAMDA 

- ■ - . LOGICAL NQKLMN* NOLOE* NOA'C* KALHAN* LOE* TETHRD* HORE 

COHHON/IODATA/IDNRS(6I 

-5 - - COHMON/RCVR01/NGMIN,NGHAX,DELBL,NGM,IR*IAE . ...... 

COMMON/RCVR02/RHOHAX*DTHO,TORO,BO,WSCD*NSO!6),NGO<6) 

• .. COMHON/RCVR03/PI,F<9,9),FL25<9),FSAMP,K,KH*TETHRD>NG,NS,JH 

COHMON/RCVR09/OELT,EO<9!,GQGT<9»9),Ht6,9>>ICOUNT,SIGHA 
.. . C0MM0N/RCVR05/N0L06*N0KLMN,NOAC,GAMES{6),RDIAG<6)*PMDIAG<9) 

10 . C0HM0N/RCVR06/PPDIAG(9),RMAT(6,6),PHII 6,6), P A ( 9* 9» * IAHDA < 6 ) 

— - CQKMON/RCVR09/BRCVR*BB*PDCRIT*CC , 

C0MM0N/HLS001/CSNRT*CSNRF»DSNRDB»RH0*BETA,FSC,LGHAX 
. . COMHON/ML$003/FL10A£t-9',2),FL10 < 9) » DE LT ATI 2 1 » XO f 9 * 2 ) * Y0< 9* 2 ) 
CDMH0N/HLS009/BMLS* BBB'* KTIMES* MSET, MORE 

15.. DATA PI/3. 1915927/, F /81+0. / , DSNROB /20 , /, RHO/ . 5/ 

DATA OELTAI/. 079079079. 1029691 35 8 /* S IGMA/ . 7071/ 

- DATA.XO/0.*3Q.,.35*0.*32«75*-»35,0.*0.,0., . 

♦ 0 • * 10 . * 0, * 0. * 12 1 * 9> 0 . , 2. * 0 ■ / 

DATA YO/62, 666667,-62., 6. 233333E-3, 6. 6E-3* 

20 *30. 666667, 0 ., 1 . 533333E-3, 0. 9E-3/ 

. .. DATA F L10AE / . 5* 0. >-• 5* 0 ., . 2 5, 0 . * -« 75*0 . / 

DATA FL25/. 39831,. 39831*-. 30336*0./ 

• - DATA JM/130/*TETHRD/. FALSE. /*KK/100/,FSAHP/1.6ES/ 

DATA H/l.,6*0.»l., 12+0.* 1.* 6*0.* 1., 12*0.* 1,, 12*0. ,1./ 

25 - DATA NSD/2,8*6*3*8,9/*NG0/2»5,9*2*6*6/ . 

DATA DELBL/.01/*EO/9+0./ 

DATA GQGT/81+0. /, PA/81+0./ 

DATA RHOHAX/.8/»0THO/2.75/*TDRO/O.O/*BO/O.O/*WSCO/O.O/ 

- • ■ - - • . ... OAT A NOIQE/. TRUE. /, NQKLMN/. FALSE. /,NOAC/. TRUE./ 

30 DATA IAE/1/*FSC/51.30/, BETA/- 168. 0/>LGMAX/l/ 

.. .. DATA BMLS/1,0/*BRCVR/1.0/,MTIHES/1/, MORE/. TRUE./ 

DATA XDNRS 15) 

END 

91000B CH STORAGE USED. . ...,219 SECONDS _ 


MLSIM6 
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C-19 


SUBROUTINE RCVR 


73/172 TS 


FTN 4.6+452 


05/17/79 15.08.35 


SUBROUTINE RCVR 
REAL LAMDA.MJH2 

LOGICAL NOKL MN.NOLOE. NOAC. KALMAN, LOE.TETHRD 
COHMON/RCVROO/THAMAX.THAMINjTS.TR.OMEGAjTF 
COMMON/RCVROl/NGMIN.NGMAX.DELBL.NGH. IR. 1AE 
COMnDN/RCVRO2/RHOHAX,0THO»TDRO#BO»WSCO,NSO(6I.NGO( 
C0HH0N/RCVR03/PI,F(9,9),FL25(4),FSAHP,K,KH.TETHRD, 
COMMUN/RCVRO4/DELT,E0(9I,GQGT(9,9),H<6,9J,ICOUNT,S 
COHMON/RCVR05/NOLOE,NOKLHN»NOAC.GAMES(61,RDIAG( 6). 
COMMON /RCVR06/PPDIAGt9),RMAT 16,6). PHI (6.6). P A ( 9, 9) 

. . CnMMON/RCVR07/T(130),V(130) . . .. 

COMMON / RC VR06 / XSLOE(9)«ESLOE(9),ES(9) 

COMMON /RCVR09/BRCVR. BB. PDCR1T.CC 
C0MM0N/RCVR10/XSK9}. XS(9) 

. DIMENSION TPAK9,9),PHTt9,6>.TPA2(9,9).IVING(6) 
DIMENSION RVNG(6),GAIN(9.6I 


6) 

HG.NS.J 
IGHA 
PMOIAGt 
» L AMD A ( 


IF (K .GT. 0) GO TO 40 
FOLG IS INITIALIZATION 
P12-2.+PI 
SS2-.5/ISIGMA++2I 
CALL PHILM 

N5-NS0(IRt 

NG-NGO( 1RI 

NCMIN-2 

NGMAX-NGQ ( IR ) 

GQGT33-.O1+0ELT 

G0GT13.3 I-GQGT33 

GCGT(6,6)-GQGT33 

G0GT(B,8)-.O4/(OELT**2) 

DO 20 I«1,NS _ 

00 10 J-l.NS 
, PA (I.J)-O. ... 

3 ' CONTINUE 
3 CONTINUE . . 

CALL C0NTRH3) 
BB-2.4/BRCVR 
POCRIT-PI+BB/8. 
CC-PI+POCRIT 
IF(IR.GT.O) GO TO 30 

. NS»NS0<4) 

NG-NG0(4) 

3 CONTINUE 

NGM-NGMIN 
IFINOAC) NGM-NG 
KALMAN-. NOT. NOKLMN 
... LOE-.NOT. NOLOE .. 

CALL C0NTRU4) 

RETURN 

0 CONTINUE 

IFIK.GT.l) GO TO 50 


DIAGNOSTIC OUTPUT..OF., INPUT DATA. F0R..K-1. GOES. HERE 

GO TO 90 
0 CONTINUE 

FOLG EXTRAPOLATES. STATE ESTIMATE. AS_REQ,D 


0PRVR6 
Page 1 of 4 



C~20 


SUBROUTINE kCVR 


73/172 TS 


FTK 9.6+952 


60 


65 


70 


75 


. BO . .. . 


85 


90 


95 


100. 


105' 


110 . 


05/17/79 15.08.35 


PAGE 2 


IF(UTHKD) GO TO 00 
00 70 I-1»NS 

xsim-o. 

DO 60 J*1,NS 

.. xsim»xsi<n+FU>j)*xs< jj .. , 

60 CONTINUE 

. 70 . CONTINUE... 

80 CONTINUE 

90 CONTINUE 

C 

GQGTll*AMAXl(.25,.01+(X51(l)++2>) - ... 

GOGT (1/1 >*G0GT11 
G0GT(9,9>*G0GTU 
C 

C FOLLOWING COMPUTES VECTORS 0 ( JH ) , HW< JH 1 , IAHOA ( NG ) , AND MATRICES DTCJH, 
C NG),PHI (NG,NS> ALSO SQUARED AMPLITUDE ENVELOPE VECTOR UIJM),AND 
.. C INOVATIONIS PROCESS VECTOR W(JM) .... ... 

c 

CALL PHILM 

IF INOLOE) GO TD 120 
C 

C FOLG COMPUTES RMAT* PHI- INVERSE ANO THE LOE 

CALL MATINV(RMAT,6,NG,IVNG,RVNG) . . . 

DO 100 I *1, NG 
PCI AG tD-RHAT II, n 
100 CONTINUE 

CALL 'HATMUL (6,NG,NG,6,NG,1,6,1,RNAT,LAMDA>GAHAES,1> 

CALL MATMUL 1 6, NG, NS,6,NG, 1,9, 1,H, G AMA ES, ESLQE, 2 ) 

. . 00 110 1*1, NS 

XSLOE(I)»XSHn+ESLOEtn 
if (noklhn) xsu>*xsLoe«n 

110 CONTINUE 
. 120 CONTINUE 

IF (NOKLHN ) GO TO 170 

. C. . . , ........ 

C FOLLOWING EXTRAPOLATES STATE EST IMATE S, ERROR 

„ C COVARIANCE MATRIX PAINS, NS) 

C 

. . .. CALL HATMUL(9,NS,NS,9,NS,NS,9,9,PA,F,TPA1,3) 

CALL MATMUL(9,NS,NS,9, NS,NS,9»9,F,TPA1»PA,1) 

CALL MATSM(PA»PA»GQGT,1»9,9»9,NS»NS,9,NS»NS*0) 

DO 130 I '* 1 » N S 
PMDIAG <I)*PA(I,I) 

130 CONTINUE 
C , 

C FOLLOWING COMPUTES MOOIFIED-KALHAN GAIN MATRIX GAIN! NS, NG ) 

. C _ ' . ...... 

CALL MATMUL(9,NS,NS,6,NG,NS,9,6,PA,H,PHT,3) 

CALL MATMULI6,NG,NG,6,NG,NS,9,9,PHI,H,TPAI,1J 
CALL MATHULI9,NG,NS,9,NS,NG,9,9,TPA1,PHT,.TPA2,1) 

DO 190 I *1, NG 
TPA2U,I>*TPA2<I,I)+1. 

190 . CONTINUE , . . ' .... 

CALL HATINV(TPA2/9,NG,IVNG, RVNG) 

CALL HATMUL(9,NS,NG,9,NG,NG,9,6, PHT ,TPA2,GAIN,1) 


C 

C 


FOLLOWING UPDATES STATE . ESTIHATE 



C-21 


SUBROUTINE RCVR 73/172 TS FTN 4.6+452 05/17/79 15.00.35 PAGE 3 


115 CALL MATMUL ( 9> NS > NG, bt NG> 1, 9, l, GAIN> LAMDA, ES, 1 ) . . 

CALL MATSM ( XS> XS 1* ES» 1, 9, 1, 9, NS/ 1# 9, NS> 1, 0 ) 

' C FOLLOWING UPDATES STATE ESTIMATE »ERROR COVARIANCE MATRIX 

C P ( NS> NS ) . 

120 C 

CALL MATMULt9,NS»NG,9,NG,NS>9»9,GAIN,TPAl,TPA2»l) 

00 150 1*1, NS 

.. TPA2(I,I)-TPA2(I»I)-1. 

150 CONTINUE 

125.. CALL MATMUL(9,NS,NS,9»NS,NS»9,9,PA*TPA2,TPA1>3I 

CALL MATMUL<9,NS»NS,9,NS»NS»9,9,TPA2,TPA1, PA,1I 
_ . CALL NATMUL(6,NG,NG,9,NS,NG,9,9,PHI,GAIN,TPA1,3) 

CALL HATttULl9,NS,NG,9,NG,NS>9,9>GAIN»TPAl> TPA2,1> 

, _ CALL MATSM(PA,PA,TPA2,1,9,9,9,NS,NS,9,NS,NS,0> , 

130 00 160 1*1, NS 

. PPOIAG (I)»PA<l,I) __ . . . . 

160 CONTINUE 
. ... 170 .CONTINUE 

XS(1I*ABS<XS<1)> 

135 AN* (THAMAX+THAMIN) /2. 

XS(2)*SATU(XS(2)-AN, (THAHAX-THAMIN) /2. 1 +AN 

IF(NS.GE.3> XS(3)*$ATU(XS(3),1.) 

IHNS.GE.41 XS<4!*SATU<ABS<XSt411,2*XS<ll) 

MJM2*FL0AT(-l JH/2 + 1] > .... .... 

140 THWW2-HJK2*0MEGA/(2.+FSAHP) 

. . AHX*XS(2)+THWW2 . _ . . 

AhN-XS l 2 1-THVW2 

AN2-{AMX+AMN)/2. 

IF I NS. GE. 51 XSt5)*SATU(XS(5)-AN2» (AMX-AMN1 /2.1+AN2 
145 IF1NS.GE.6) XS[6 )*SaTU(XS(6)>1.) 

IF (NS.GE.7) XS<71»PVALUE(XS<7)>PI,Q.) 

IF (NG.EQ.5I XS(B)*PVALUE(XStSl»PI/OELT,0.> 

■ ' ' RSMAX-8000. 

. __ IF(NS.GE*9)„X$(9)*SATU(XS(9t,RSMAX) 

150 RETURN 

. END . < .... 

41000B CM. STORAGE .USED . . ,1.412 SECONDS 


0PRVR6 
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BLOCKDATA ORVRIO 73/172 TS 


FTN A.6+A52 05/17/79 15.08.35 


BLOCK DATA ORVRIO 
COMMON/ IOO AT A/ 1 DNRS ( 6) 
OATA I DNRS ( A ) / 2 / 

END 

A 1000 B CH STORAGE USEO .012 SECONDS 


C 

I 

N 

N 


PAGE 1 
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.. 5 . 


' ' 10 


„ . 15 


20 


. 25 


30 


...35 , 


40 


..45 


50 


55 


SUBROUTINE PHILM 73/172 TS f TN 4,6+452 05/17/79 15.00.47 PACE 1 


SUBROUTINE PHILM 
C 

C THIS OPTIMAL VERSION OF PHILM IS FOR ALL SCALLOPING RATES 
C AND PROVIDES A CRUDE SEARCH-AND-ACQUISITION FUNCTION 

C ACCESSED AS FOLLOWSI ... , , 

C SEARCH MODE l NGH-NGHIN 

. . C .ACQUISITION MOD E I NGMIN.LT.NGM.LT.NGM AX 

C FULL TRACK MODE » NGM-NGMAX 

C .. , . 

C 

... C THIS-NEEDS NGHIN.LE.NGH t.LE.NG) . LE • NGHAX 

C 

REAL LAKDA 

LOGICAL NOKLMN,NDLOE,NOAC> KALMAN, LOE»TETHRD 
C0MM0N/RCVR01/NGMIN#NGMAX*DELBL/NGM/ IR* IAE 
COMMON/RCVR02/RHOHAX,DTHO,TDRO,BO>WSCO>NSO(6),NGO<6) 

. C0MM0N/RCVR03/PI, F ( 9, 9 ) , FL2 5 < 4 > » FS AHP,K,KM,TETHRO» NG, NS, JH . „ 

C0MM0N/RCVR04/DELT,E0(9),GQGT(9>9I,H<6>9)»IC0U NT, SIGMA 
COMMON/RCVR05/NDLOE,NOKLMN,NOAC, GAME S ( 6 ) ,RDI AG < 6 > , PM0IAG<9) 
COMMON /RC VR06/P PD 1 AG(9),RMAT(6»6I»PHI(6»6),PA(9»9)>LAMDA(6) 
COMMQN/RCVR07/T(130),V(130> 

C0MMt!N/RCVR08/XSL0E19),E$L0E(9), ESI 9) 

C0MMQN/RCVR09/BRCVR, BB,PDCRIT,CC . . . 

COMMON/RCVRIO/ALFA,THES»THESDT,ALFAR,THRS,TKRSDT»B,WSC> 
CWSC00T,XS<9) ■ , . 

DIMENSION INDEX(2)»DT<i.30,6),HW(130)>W<130) 

. c . 

C FOLLOWING EFFECTS INITIALIZATION 

’ IF(K.GTibf GO To' 10’ 

JM2»JM/2 

JM1-JM+1 

SS2-.5/ISIGMA++2) , „ ... 

RETURN 

10 .CONTINUE 

C 

C FOLLOWING PROGRAMS THE SEARCH 
C 

IF (NGM.GT.NGMIN) GO TO 30. .... 

AIF AR-ALFA+RHOHAX 

THRS0T-;T.D5D„_ . ..... 

B-BO 

WSC-WSCO 
THRS»THES— OTHO 
C FOLG TETHERS WSCDOT 
WSCOOT-O. 

30 .. .CONTINUE - 

C 

C FOLLOWING COMPUTES CONSTANTS FOR PRESENT SCAN 

C 

AL2-2.+ALFA , * 

AL22-AL2+ALFA i - 

AR2*2,*AIFAP _ . . 

AR22*AR2+ALFAR 

AA2-AL2+ALFAR 

C 

C FOLLOWING INITIATES LOOP ANO COMPUTES FUNCTIONS 


PL0PT6 
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SUBROUTINE PHUM 73/172 TS ’ FTN 4.6+452 " ’ 05/17/79 ~1 5 fo674 _ 7 PAGE 2 


... C . . .FOR EACH J . '. 

■ C ' 

- . 60 . . . DO 60 JI«1,JM2 

INDEX ( 1 I ■ J I 

. 1NDEX(2)*JM1-JI , 

THAJ»THA(TUI>> 

. . . THEE«THES*-THAJ ... . .. . . 

65 PJ« P(THEE) 

. - . . POJ«PDOT(THEE) „ .. .... 1 . 

P2J-PJ++2 

.. THER-THRS-THAJ. _ . .. . ...... 

PRJ*P(TH£R) 

70 PDRJ-PDOmHER) . . _ 

PR2J*PRJ*+2 

. . PPRJ*PJ + PRJ ..... .... 

ONRJ».5+AL22+P2J 

CRJ«QNRJ+.5+AR22*PR2J 

75 D1NET»AL2+P2J 

. C1«AR2+PPRJ 

D2NET*AL22+PJ+PDJ 

C2-AA2+P0J+PRJ . . 

D3J-AR2+PR2J 

-80 . . C3“AL2*PPRJ , .... 

D4J*AR22*PDRJ*PRJ 

C4.AA2+PJ+PDRJ 

D5J—AA2 + PPPJ 

C FOLG COMPLETES CALCULATIONS FOR TO+FRO SCANS* RESP. 

65 DO 50 1«1#2 

- • J “ INDEX ( I ) „ . . , .... ... . 

T J »T ( J ) ■ 

. BL0CAL-PVALUE(B+<KSC+0.5*WSCDQT+TJ>*TJ>3.1415927*DELBU ... . 

S B* S IN I B LOC AL ) 

90 . C S "COS < B LOCAL) „ .... 

OJ-QNRJ 

,QRJALL*QRJ-D5J+CB ... . , . . 

01J«D1NET 

' . . 02J*02NET 

95 IF (NGM.LT.NGMAX) GO TO 40 

. . qj*qrj'all 

01J«D1J+C1*CB 

... D2J*D2 J+C2+CB ... 

40 CONTINUE 

100 . DT(J,1)*D1J 

OT ( J* 2 ) »02 J 
. . DT(J*3)"D3J+C3*CB 

DT(J,4)«D4J+C4*CB 

DT J 5*D5 J+S B . . ... 

105 DT( J* 5) "DTJ5 

C . FOLG IS FOR A 60 LOE DESIGN 
OT (J> 6 ) *DT J 5 + T J 

C FOLLOWING COMPUTES .VECTOR KW(JM)»AND INNOVATIONS PROCESS VECTOR W(JH) 
C 

, 110 HW<JJ«l./tl.+2.*QJ) _ 

1>J*V<J) 

UJ-SS2+(UJ++2> 

W!J)»(UJ/SQRTa. + QJ*UJ))-l. 

50 CONTINUE . ... 


PL0PT6 
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SUBROUTINE PHILM 73/172 TS 


FTN 4*6+452 05/17/79 15.00.47 PACE 


115 


120 


12 5... . _ 


130 


135 . 


60 ... CONTINUE . 

C 

C FOLLOWING COMPUTES VECTOR LAHDA(NG) AND MATRICE PHI ( NGa NG ) 

C 

DO 110 I-1»NG. . 

LAMDAt I ) *0.0 
DO 70 J«1.JM 

LAMDA(11*LAM0AUI + DT(J»I) + W<J) 

70 CONTINUE 

00 100 L*1a X 
. ... PHILI-O. 

DO 60 J » 1» «IM 

PHILI*FHILI+HW(J)+DT!J»I)+DT<J>L) 

80 CONTINUE 

PH I ( La I > *PH I L I 
P HI ( I > L ) “PHIL I 
. IF (NOLOE) 60 TO. 90 
RMATILaI I “ PHI L I 
. RMAT(IaL)*PHILI 
90 CONTINUE 
100 CONTINUE 
110 - CONTINUE 
. RETURN.. . 

END 


410006 CM STORAGE USED 


.823 SECONDS 
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BLOCKDATA PLOPID 73/172 TS 


FTN A.6+A52 


05/17/79 15.08.A7 PAGE 


BLOCK DATA pLOPID 
COMMON / IOOATA/ 1 DNRS ( 6 ) 

COMMON /RC VR01 /NGMINj NGHAX>D£LBL/NGM»IRfIAE 
DATA IONRS(3)/2/ 

DATA IR/6/ , 

END 

A1000B CM STORAGE USED .019 SECONDS 


PL0PT6 
Page 4 


l 


of 4 



DISTRIBUTION LIST 


Copy No. 

1-2 NASA Scientific & Technical Information Facility 
P. 0. Box '•8757 

Baltimore/Washington International Airport 
Baltimore, ME). 21240 

3 - 13 Flight Electronics Division 

National Aeronautics and Space Administration 
Langley Research 'Center 
Hampton, VA 23365 s ' 


14 

- 15 

G. A. McAlpine 


16 

- 18 

J. H. Highfill 

III 


19 • 

E. A. Parrish, 

Jr. 


20 

I. A. Fischer 
OSP 


21 

- 22 

E. H. Pancake 
Clark Hall 



23 

RLES Files 



JO# 9903 JDH 



UNIVERSITY OF VIRGINIA' 

School of Engineering and Applied Science 

The University of Virginia's School' of Engineering and Applied Science has an undergraduate 
enrollment of approximately 1,000 students with a graduate enrollment of 350. There are approximately 
120 faculty members, a majority of whom conduct research in addition to teaching. 

Research is an integral part of the educational program and interests parallel academic specialties. 
These range from the classical engineering departments of Chemical, Civil, Electrical, and Mechanical to 
departments of Biomedical Engineering, Engineering Science and Systems, Materials Science, Nuclear 
Engineering, and Applied Mathematics and" Computer Science. In addition to these departments, there are 
interdepartmental groups in the areas of Automatic Controls and Applied Mechanics. All departments offer 
the doctorate; the Biomedical and Materials Science Departments grant only graduate degrees. 

The School of Engineering' and Applied Science is an integral part of the University (approximately 
1,400 full-time faculty with/ a total enrollment of about 14,000 full-time students), which also has 
professional schools of Architecture, Law, Medicine, Commerce, and Business Administration. In addition, 
the College of Arts and Sciences houses departments of Mathematics, Physics, Chemistry and others 
relevant to the engineering research program. This University community provides opportunities for 
interdisciplinary work -in pursuit of the basic goals of education, research, and public service. 



